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LOGO STRING LANGUAGE RJG+PMW 7/29/1969 

RESTSU=73 
IQPMAX=74 
TISMAX=75 
TTNO=76 
TRAPPC=77 
ERCODE=102 
OWNWD 3 1 04 
TTTSU=105 
IOPTSU=106 
PS A= 1 07 
STS=1 10 
JMODE 3 1 1 1 
ORG= 1 23 

TXIHNG=I0T 100 
TYI=IOT 200 
TYO=lOT 300 
TIS=I0T 400 
T0S=I0T 500 
TTCKS=IOT 1000 
SUPGO=IOT I 4100 
TTMODE=lOT 1100 
RSMC=lOT 1200 
DELAY=IOT 1600 
WPP=IOT 3200 
GTD=IOT 3400 
PEEK=10T 3700 
GRDR=IOT 4100 
RPA=I0T 4200 
RRDR=I0T 4300 
GPUN=I0T 4400 
PPAsIOT 4500 
RPUN=lOT 4600 
RCK=I0T 4700 
R AI=*I0T 6100 
RAB=IOT 6140 
EAI=I0T 6200 
EAB=I0T 6240 
WNIF=I0T 6300 
WNIH=IOT 6320 
WNBP=I0T 6340 
WNBH=IOT 6360 
SGI 3 IQT 5300 
WAI=IOT 6400 
MAB=IOT 6440 
IVNR=I0T 6500 
IVNW=I0T 6600 
IVNRW 3 I0T 6640 
I VNE=I0T 6660 
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BDIT=IOT 10100 
RPB=I0T 10200 
DNM=IOT 10600 
SNMslOT 11000 
TDNUM=XOT 11200 
STD=IOT 11300 
DTM=IOT 11415 
DDT=IOT 11515 
HALT=I0T 12401 

RAIS=RAI" U"2 
RAIL-HAI” U” 2 
WAIP = WAI'*U"22 
RA1 P=RAI " U " 2 
WNIP=WNIH ,, U"2 
WNIL = WNIF"U'*2 
WAXL=V?AI " U ” 2 
SGIL=SGI‘*U ,, 2 
EA1L=SAX”U"2 
RAXFL=RAI"U"2 
WAIFL = WAT , ’U”2 
SGIFL=SGI"U«2 
WNIFL=WNIF"U"2 
EAIFL = EAI*'U , '2 
SEGNUfl=276 
PASMUH=300 
NAMNUM=3P51 

BCNT=20 
BLNG=98 , 
PDLHG-20000. 

&L 
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# 



define sjsp a 

JSP ,SJSP 
A 

terminate sjsp 

DEFINE SJMP A 

JDA .SJMP 
A 

TERMINATE SJMP 

DEFINE LODE A 

LIO A 

lac (JMP-1) 

TERMINATE LODE 

DEFINE STORE A, 3 

LIO I A+1 
DIO B 
LAC A 
SUB A +5 
D A C B + 1 

TERMINATE STORE 

DEFINE LOAD A 

LIO A 
LAC A+1 

TERMINATE LOAD 

DEFINE UNLOAD A 
DIO A 
DAC A+1 

terminate unload 

REPEAT 0IF P, EQUALS LOCOM.NULL 

DEFINE REMLD A, 3 

EQUALS B. LDCOM 

DEFINE LDCOM 

EQUALS LDCOM, B 

EXPUNGE B 

LDCOM 

TEXT I A # ! 

TERMINATE LDCOM 
TERMINATE REMLD 

DEFINE COLON A 

A=SEGNO"T w I+, 
TERMINATE COLON 
&L 
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define unstep a 

LAC A 

IDC 

IDC 

SUB (1) 

dac A 

terminate unstep 

DEFINE USED A 

LAC (010000) 

IOR I A + 4 
DAC I A+4 
TERMINATE used 

define unread A 

LAC A+4 
JDA RUNFRZ 

terminate unread 

DEFINE NEWSEG COMMENT/C 

REPEAT 1 IF VP .-CON, CON*. 

REPEAT 1IF P, PRINT {comment? 

REPEAT 0IF P.REMLD COMMENT, C 

S£GNO=SEGNO+1 

SEG/ CON- , 

0 

TERMINATE NEWSEG 

EQUALS HERE, NULL 
DEFINE remote A/B 
EQUALS 8, HERE 
DEFINE HERE 
EQUALS HERE, 3 
EXPUNGE B 
HERE 
A 

terminate here 
terminate remote 

DEFINE SYMBOL NAME, DATA/A , B 
A, 0 

TEXT /NAME#/ 

DATA 

B# A/ B-A 

B/ EXPUNGE A , B 

TERMINATE symbol 

SEGNO = 0 

REPEAT 0IF P,CON=0 

/SYMBOLS TEMPORARILY DEFINED *. TO BE CHANGED LATER 

CNAME=000001 

CTHING=000002 

«L 
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100/ JMP LOADER 

OWNWD/ TEXT .LOG, 

ORG/ /LOADER FOP LOGO ( PLAGERlZED FROM STRINGCOMP) 

TOCBK, . 50,/ 

DATABK, . 50,/ 

TOCP, 0 

DATAP, 0 

/SUBROUTINES AND STORAGE FIRST SO CAN EASILY ZERO MOST OF LOADER 
TGWOBD, DAP TGWX /GET NEXT WORD FROM BINARY FILE 

LAW DATABK 50, /ARE WE OFF TOP OF DATA BLOCK 
SAS DATAP 

JMP GWORD2 /NO 

LAW TOCBK 50, /YES: ARE WE OFF TOP OF TOC 

SAS TOCP 

JMP GWORD1 /NO 

LAW TOCBK /YESt GET NEXT TOC BLOCK 

LIO TOCBK 
RAB 2 

LAW TOCBK 1 /RESET POINTERS 
DAC TOCP 

G WORD 1 . LIO I TOCP /GET NEXT DATA B 

IDX TOCP 
LAW DATABK 
DAC DATAP 
RAB 2 

GWORD2 , LIO I DATAP 

IDX DATAP 
TGWX, JMP , 

T21, DAP T22 

lax 

LIO TCC 
SNM+43 
cla 

TYO 
TYO 

LCH I TXTCOM 
SAD teom 
JMP .+3 
TYO 

JMP ,-4 
LAC T JMP 
IQR TXTCOM 
DAC TXTCOM 
LAC TCD 
TYO 1 

TCD , 760000 

T22, JMP . 



/TYPE OUT NUMBER 



/type 2 SPACES 
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teom, character l# 

TJMP, JMP 

TXTCOM, 0 

text /command table#/ 
text /system table#/ 
text /list table#/ 

REPEAT IIP P,LDCOM 

REPEAT 1 1F P, [REPEAT 4, CHARACTER L#3 
TXTCOM+200./ 
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TXT5 , 


TEXT ,SEG TOC #. 




TXT6, 


TEXT .DBA IF DRUM: 


#. 


TXT2, 


TEXT .CHECKSUM ERROR# 


TXT4, 


TEXT .MAIN PROGRAM 


#. 


TCRPB , 


RPB 




TCA , 


DZM CON 




TCG , 


JSP TGWORD 




T 1 6 , 


SEGNUM 
TEXT .LOG, 

0 




T30, 


0 




T36, 


0 




T32P, 


0 





T32, 98, 

REPEAT 97, ,0 

T3 1 # 0 

DZM T36 
DAP T37 

law t 3 i b 
DAP T35X 

T31B, LAW T32+3 

DAC T32P 

T3 1 A # LAC I T3 1 

DAC I T32P 
SZA I 
JMP T37 
IDX T 3 1 
IDX T32P 
SAD T39 
JHP T35 
JMP T 3 1 A 

SL 



/OUTPUT COMTBL, SYSTBL, ETC’, 



/END OF LIST 



/END OF BUFFER 
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T35 , LAW T32 

DZM T32+2 

WNIL+1 /WRITE OUT A BUFFER OF TABLE 

PS 

lac T36 
DIO T36 
SZA I 
JMP T38 
LI A 

LAW T32 

RAIL+1 

0 

LAC T36 
DAC T32+2 
LAW T32 
wail+i 
0 

T35X, JMP T3 1 B 

T37, LAW , /RETURN ADR DAPPED INTO HERE 

DAP T35X 
JtlP T 35 

T38, DIO I TV 1 

IDX T V 1 

JSP T21 /TYPE OUT ADR OF TABLE 

JMP I T35X 

T39 , T 32 + 9 8 , 

SL 
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DEFINE C NAME, DATA, BITS/A, B 

A, 0 

text /NAME#/ 

DftTA+700000 

B, A/ BITS M T"10000+B-A 

B/ EXPUNGE A , B 

terminate c 



/40**WHEEL ONLY COMMAND 

/20*"(SOME PARSING INFO, NOT USED NOW} 

/10*LEGAL AS STORED COMMAND 
/4*-LEGAL AS DIRECT COMMAND 
T33 , C TO, TO, 4 

C CALL, MAKE, 14 
C RETURN, RETURN, 10 
■-C HOARD, HOARD, 54 
-C SHARE, SHARE, 54 
C TITLE, TITLE, 14 
-C BURY, BURY, 54 
C WAIT, WAIT, 14 
~"C DIGUP,DIGUP,54 
C IF, IF, 14 
— C UNLOCK, UNLOCK, 14 
— -C LOCK, LOCK, 14 

C EDIT,, EDIT, 4 /EDIT ILLEGAL IN ANY FORM FROM FILE 
C END, END, 14 
C TRACE, TRACE, 14 
C ERASE, ERASE, 14 
C LIST, LIST, 14 
C GOODBYE, GOODBYE, 14 
C PRINT, PENT, 14 
C TYPE, TYPE, 14 
C OUTPUT, RETURN, 10 
C MAKE, MAKE, 14 
C STOP,STP, 10 
C DO, S UPDO, 14 
C LOCAL, LOCAL, 10 
C SAVE, SAVE, 14 
C GET, GET, 14 
C GO, GO, 10 
C DDT8BN,DDTA,54 
C RESET, RESET, 14 
C ABBREVIATE, ABBT, 14 
C TEST, TEST, 14 
C PASSWORD, PSWORD, 14 

/”Q«COMMANDS ARE FOUND ONLY IN READING FROM FILES 
C "Q"TO,GTTO,4 

c "q”bto,gtbto,4 /hidden procedurbe 

C "Q"END,GTEMD,4 
C "Cr,GTFlNl«4 
0 

81 
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define s name, data 

A, 0 

text /name#/ 

600000 DATA 

B, A/ B-A 

B/ EXPUNGE A , B 

terminate s 



DEFINE S0 NAME, DATA 



A, 0 

TEXT /NAME#/ 
500000 DATA 

B, A/ 

B/ EXPUNGE A , B 

TERMINATE S0 



B-A 



T34, 



S FIRST, FIRST 
S EMPTYQ,EMPTQ 
S ZEROO, ZEROQ 
S BEFOREP, before? 
s empty?, emptq 

S ZERQP, ZEROQ 
S DATE-GOTTEN, DATEGT 
S SIZE, SIZE 
S INITIALS, FINIT 
S OWNER, OWNER 
S WORDP,WORDQ 
S DATE-SAVED, DATESV 
S SENTENCE?, SENTO 
S numberp,numq 

S GREATERP,GREATQ 
S IS, IS 

S ENTRIES, ENTRIES 
S 3UTFISST,«UTF 

s last, last 

S 8UTLAST f BUTL 
S COUNT, COUNT 
S THING, THING 
S WQR0Q, WORDS 

S sentenceq,sentq 
S NUMBERS, numq 
S WORD , WRD 
S MAXIMUM, MAXIMUM 
S SENTENCE, SENT 
S SUM, SUM 
S ASK, ASK 
S MINIMUM, MINIMUM 

S greater©, greatq 

S BOTH, BOTH 
S EITHER, OR 
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S OH, OB /TEMPORARY 

S DIFFERENCE, diff 

S0 ABBREVIATIONS, ABBES 

S 0 ABBREVIATION, ABBR 

S0 ALL, ALL 

S0 AND,CAND 

S0 COMMENT, COMMENT 

S 0 procedures, prcds 

S0 NAMES, NAMES 
S 0 ENTRY, ENTRY 
S 0 FILE, FILE 
S0 FILES, FILES 
S0 CONTENTS, CONTENTS 
S0 REQUEST, BEQUEST 
S 0 CLOCK, CLOCK 
S0 TIME, TIME 
S0 DATE, DATE 
S0 RANDOM, RANDOM 
S 0 AS, AS 

S0 TRACES, TRACES 
S0 LINE, LINE 
S0 OF, OF 
S0 ON, ON 
S0 TRUE, ATRUE 
S0 FALSE, AFALSE 
2 



SL 
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define lc type, name, addr/a,b,c 

C = 0 



IRPCT, ,»AME] 








CaC+1 






repeat iif vz C-3,C-0 






ENDXRPC 








TYPE”T M 100000 ADDS 






A « 0 








text /name#/ 






B. A/ 


B-A+1XF VP C- 


1/«T”200000+1IF 


VP C-2/ H T»« 100000 


B/ REPEAT IIF P, EXPUNGE A»B,C 






terminate lc 








T40, LC 


7, IF, IF /COMMANDS TO 


BE LISTED (ALL 


COMMANDS) 


LC 


7, WAIT, WAIT 






LC 


7, OUTPUT, RETURN 






LC 


7, UNLOCK, UNLOCK 






LC 


7, LOCK, LOCK 






LC 


7, HOARD, HOARD 






LC 


7, SHARE, SHAPE 






LC 


7,DDTBBN,DDTA 






LC 


7, TITLE, TITLE 






LC 


7, BURY, BURY 






LC 


7,DIGUP,DIGUP 






LC 


7,DO,SUPUO 






LC 


7, EDIT, .EDIT 






LC 


7, END, END 






LC 


7, TRACE, TRACE 






LC 


7, ERASE, ERASE 






LC 


7, LIST, LIST 






LC 


7, goodbye, goodbye 






LC 


7, MAKE, MAKE 






LC 


7, SAVE, SAVE 






LC 


7, GET, GET 






LC 


7, PRINT, PENT 






LC 


7, RETURN, RETURN 






LC 


7, TYPE, TYPE 






LC 


7, TEST, TEST 






LC 


7, RESET, RESET 






LC 


7, ABBREVIATE, ABBT 






LC 


7, PASSWORD, PSWORD 






LC 


7 , STOP , STP 






LC 


7, LOCAL, LOCAL 






LC 


7, TO, TO 






LC 


7, GO, GO 






LC 


6, IS, IS 






LC 


6, BOTH, BOTH 






LC 


6, ASK, ASK 






LC 


6»8£FQRBP,BEF0RFjP 







&L 
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LC 5.AND.CAND 

LC 6. ENTRIES, ENTRIES 

LC 5,TRACES»TRACES 

LC 5, OF, OF 

LC b , TRUE, aTRUE 

LC 5, FALSE, AFALSE 

LC 6, FIRST, FIRST 

LC 6.BUTFIRST.RUTF 

LC 6, LAST, LAST 

LC 6, INITIALS, FINIT 

LC b, LINE, LINE 

LC 6,BUTLAST,BUTL 

LC 6. COUNT, COUNT 

LC 6 , DATE-GOTTEN, DATEGT 

LC 6, SIZE, SIZE 

LC 6, OWNER, OWNER 

LC 6, THING, THING 

LC 6,W0RDP,WQRDQ 

LC 6,SBNTENCEP,SENT0 

LC 6,NUMBERP,NUMQ 

LC 6,EMPTYP,EMPTQ 

LC 6,ZEROP,ZESnQ 

LC 6 , WORD , WKD 

LC o«GREATERP,5REATQ 

LC 6, DATE-SAVED, DATESV 

LC 6, MAXIMUM, MAXIMUM 

LC 6, EITHER, OR 

LC 6, MINIMUM, MINIMUM 

LC 6, SENTENCE, SENT 

LC 6, SUM, SUM 

LC 6, DIFFERENCE, DIFF 

LC 5, ABBREVIATIONS, ABBRS 

LC 5, CONTENTS, CONTENTS 

LC 5, NAMES, NAMES 

LC 5, ENTRY, ENTRY 

LC 5, FILE, FILE 

LC 5, FILES, FILES 

LC 5, ALL, ALL 

LC 5, COMMENT, COMMENT 

LC 5, PROCEDURES, PRCDS 

LC 5, ABBREVIATION, ABBE 

LC 5-, REQUEST, REQUEST 

LC 5, RANDOM, RANDOM 

LC 5, CLOCK, CLOCK 

LC 5, TIME, TIME 

LC 5, DATE, DATE 

LC 5, ON, ON 

LC 5, AS, AS 

0 



8L 
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LOADER, 



T 2 , 



CLF 7 

LAW TXTCOM+1 
DAC TXTCOM 
LAW TXT7 
TOS 

LAW TXT6 
TOS 

LAW TQCBK 
DAC FSA 
TIS 

LAW TOCBK 
EDIT 

JMP LOADER 
D N M 16 
STF 3 

lia 

LAC TCD 

tyo 

lac TCG 
SZF 3 
LAC TCRPB 
DAC T 1 
SZF I 3 
JMP , +3 
GRDR 40 
XX 

DIO T30 
LAW T33 
JDA T31 
LAW T34 
JDA T 3 1 
LAW T 4 0 
JDA T31 
LIO T30 
LAW TOCBK 
SZF I 3 
RAB 2 

LAW TOCBK 2 

DAC TOCP 

LAW DATABK 50 

DAC DATAP 

STF 4 

SZF 3 

CLF 4 

LAW SEG 

DAP ,+1 

DZM . 

IDX ,-1 
SAS TCA 
JMP .-3 
CLF 1 



/START OF LOADER 
/"DRA IF DRUM" 

/type into extra space 



/TYPE IN OCTAL NUMBER WITH NO SIGN 
/OR OTHERWISE ASSUME PAPER TAPE 

/CHOSE INSTRUCTION FOR WHICH TYPE OF FILE 

/IF PAPER TAPE GET READER 

/SAVE 10 

/comtbl 

/systbl 

/LIST TABLE 

/READ IN FIRST TOC BLOCK IF DRUM 
/AND SET POINTERS 

/AND SET SO DATA BLOCK WILL AUTOMATICALLY LOAD 

/IF FROM DRUM! SKIP TO AFTEP FIRST JMP BLOCK 

/BEGINNING OF LOADER PROPER 
/ZERO OUT SEGMENT AREA 

/SET TO BE LOADING SEGMENTS 
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T 1 » 
Ttt# 

T7, 



• 




/GET FIRST WORD 


DIO 


T4 


/FIRST ADDRESS 


DIO 


T 5 


/CHECK SUM 


SPI 




/JUMP BLOCK? 


0 




/IF SO DISPATCH 


XCT 


T 1 


/READ ADDRESS OF EAST WORD+1 


DIO 


T6 




LAI 






ADD 


T5 


/RESET CHECKSUM TO INCLUDE IT 


dac 


T5 




CLA 






DIP 


T 4 


/SET SO USING ONLY 12 BIT ADDRESS 


DIP 


T 6 




XCT 


T 1 


/GET NEXT WORD 


SZF 


I 4 




DIO 


1 T 4 


/STORE IF NOT SKIPPING 


lai 






ADD 


T5 


/AND UPDATE THE CHECKSUM 


dac 


T5 




IDX 


T 4 


/SET FOR NEXT WORD 


AND 


TC7777 




SAS 


T6 


/WAS THIS THE LAST WORD 


JMP 


T7 


/NO: LOOP 


XCT 


T 1 


/yes: check checksum 
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T6 » 



Til, 

T8, 



T5, 
TV 1 , 



TC7777, 



T12, 



LAI 






SAD T5 


1 




JMP T 1 


/OK 




LAW TXT2 
TOS 1 


/"CHECKSUM ERROR” 




0 

RRDR 
JMP T 1 5 


/RELEASE READER AND QUIT 




STF 1 


/segment loader : flag i 


SAYS 


LAW 10 
SZF 3 
DELAY 
LAW SEG 
WNIL 1 


/WAIT 10 SECONDS IF FROM 


TAPE 


0 


/WRITE OUT SEGMENT 




DIO COMTBL 
DIO SEGDRA 
IDX TV1 


/AND SAVE DRA’S 




JSP T21 
SZF I 1 


/TYPE OUT NUMBER ALSO 




JMP T2 


/GO GET REST OF SEGMENTS 




LAW TEME 
WNIL 1 


/DONE: WRITE OUT SEGMENT 


TOC 



7777 
LAW T 1 6 
IVNRW+1 



MAIN SEGMENT 



0 

LAW TXT5 /TYPE OUT ADDRESS OF SEGMENT TOG 

TOS 

j s p 121 

LAW 36 /WRITE OUT MAIN SEGMENT 

WNIL 1 



0 
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DIO T 1 4 
LAW TXT 4 
TOS 1 


TCC, 


6 

JSP T21 


TCC+2, 


RRDR 

LAW TOCBK 
DAP .+1 


T 1 3 # 


DZM . 
IDX , -1 
SAS tcr 
JMP T 1 3 
LAW 3 6 
LIO T14 
DIO 42 
wail 


T 1 5 # 


law TXT7 
TOS 

DZM 6 6 
JMP 66 


TCB, 


DZM T 1 3 


T 1 4 , 


0 


TXT7 # 


771477 

157715 

771577 

157715 

767674 



/ZERO OUT AREA OCCUPIED BY LOADER 
/FEW WORDS STILL THERE 

/REWRITE MAIN SEGMENT WITH AC AND 10 
/HALT IN DDT WITHOUT TYPEOUT 



WORD JMP T2 
SL 
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71/ JMP gdbyea jmp gdbyea 

100/ JMP LOGO JMP ERRS 

RESTSU/ JMP MARKBK /DZM BRKCNT 

TTTSU/ CAL BRKERR 

IOPTSU/ cal ioperr 

ORG/ BASE, 

ORG+BLNG”T"BCNT/ 

/FIND BUFFER TO USE AND SET UP POINTERS {TRANSPARENT TO 10) 

FBUF , DAP FITMX 

DIO DRUMI 

LAC (10000) /SET TO LARGER THAN POSSIBLE 
DAC DRUM 
LAW 3CHK 

DAP FBUFA+1 /SEARCH COUNT TABLE FOR OLDEST REFERENCE 
FBUF A , LAW 7777 /GET COUNT OF NEXT DRA 

AND , 

SUB DRTJMT /ARE WE LESS THAN PREVIOUS 

SMA 

JMP FBUFB 

LAC I FBUFA+1 /YBSl-IS THIS LOCKED IN CORE 

AND (760000) 

SZA 

JMP FBUFB /YES I -SO FORGET IT 

LAW 7777 /NO ! -GET ORIGINAL COUNT 

AND I FBUFA+1 

DAC DRUMT /RESET NEW LIMIT 

LAW I BCHK-BTBL 

ADD FBUFA+1 /RESET DRA WHICH WILL HAVE TO GO 
DAP BDR A 

FBUFB, IDX FBUFA+1 /LOOK AT NEXT COUNT 
3AS (AND BCHK+BCNT) 

JMP F3UFA /LOOK TA NEXT NUMBER 

JMP FITHC /DONE-SO HAVE FOUND LEAST 

&L 
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/FIND ITEM WHOSE DBA IS IN 10 (TBANSPARENT TO XO) 

/R 1 -NOT IN CORE,R2~IN CORE AND POINTERS SET 
FITM » DAP FITMX 

DIO DRUMI 

LAW BTBL-1 /SEARCH TABLE FOR DRUM ADDRESSES 

DAP BDRA 
FITMA, IDX BDRA 

SAD (SAS BTBL+BCNT) /OFF END OF TABLE 

JMP FITMX-1 /YESUGIVE R1 FOR DRA NOT FOUND 

lai 

BDRA, SAS . /WILL POINT AT DRA AT END 

J M p fitma 

IDX FITMX /HAVE FOUND DRA SO R2 

FITMC , LAW BCHK-BTBL 

ADD BDRA 

dap bcount /set pointer to count table 

SUB {SAS BCHK) /calculate ADDRESS OF BUFFER 
MUL (BLNG) 

SCL PS 

scl as 

ADD (BASE) 

DAC BBPTR 
ADD ( 2 ) 

DAC BBPTR 1 /TO FWD PTR 

IDA 

DAC BBPTR 2 /TO FIRST WORD 

LIO DRUMI 
FITMX, JMP . 

&L 




* 'LOGO, 15* 



24 JULY 1969 2030:34 



PAGE 18 



/GET ITEM 
GITM, 



GITMA » 

GITMB » 
GITMX, 
GITMC, 



IN CORE (DRA IN 10) (C(1O)=0 MEANS FORCE ITEM OUT) 

CLI /JSP GITM-1 FORCES ITEM OUT OF BUFFER 

DAP GITMX 
DIO DRUMT 

LAC I BDBA /IS THE BLOCK ALREADY THESE? 

SAD DRUMT 

JMP GITMB /YESUSKIP THE READING JAZZ 

LI A 

LAC I BCOUNT /IS THE BLOCK CHANGED 
AND (10000) 

SZA I 

JMP GITMA /NO ! "SO DON'T WRITE OUT 

LAC BBPTR /YES l -SO WRITE IT OUT 

SNI I 
WAIP 

DZM I BCOUNT 
BZM I BDRA 

LIO DRUMT /READ IN BLOCK WANTED 

LAC BBPTR 
SNI I 
RAIP 

DIO I BDRA 

IDX BTIME /UPDATE QUE1NG ALGORITHM 

DAP I BCOUNT /AND SET FOR THIS WORD 
SAS (10000) /DID WE OVERFLOW COUNT 
JMP . 

LAW BCHK /YES ! -SET ALL COUNTS TO 0 

DAP GITMC+1 
CLA 
DAP , 

IDX .-1 

SAS (DAP BCHK+BCNT) 

JMP GITMC 
DZM BTIME 
JMP GITMX 



/GET ITEM (0 MEANS GET NEW ITEM) 

CLI 

GETIT, DAP GETITX 

JSP FITM /IS ITEM IN CORE 

JSP FBUF /NO'-GO FIND BUFFER 

JSP GITM /READ IN IF necessary 

GETITA, LAC BBPTR /GET ADDRESS OF BEGINNING OF BUFFER 

SNI I 

GETITX, JMP , 

DZM I BBPTR 1 /0 THE LINKING WORD 

DZM I BBPTR 2 /0 FIRST WORD 

JDA WNPCNT /WHIP AND COUNT ITEMS TO ASSURE < 4 QTRKS 

LAC BBPTR 

DIO I BDRA /SET UP POINTER IN TABLE 

JMP GETITX 
<SL 
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NEWXTM, DAP NEWlTX /GET NEW ITEM INTO SAME BUFFER 

JSP GETIT /SET UP POINTERS ( C ( AC ) *C ( BBPTR ) ) 

JDA WNPCNT /WRITE NEW ITEM AND COUNT SO ONLY 4 QTRKS 

DIO I BBPTR1 /SET forward chain WORD 

JSP MARK /MARK OLD BLOCK AS CHANGED 

JSP GITM-1 /FORCE OLD ITEM OUT OF CORE 

LIO I BBPTR1 /FORCE NEW ITEM TO BE ONE IN CORE 

DIO I BDRA 

JSP mark /MARK IT CHANGED ALSO 

DZM I BBPTR1 
DZM I BBPTR2 
NEWITX, JM? . 

RUNFRZ, 0 /POINTER IN AC : READ UNFREEZE 

DA? RUFRZX 
RUNFRZ+2, CLA 

SAD RUNFRZ 
JMP RUFRZX 
LAC (-400000) 

AND I RUNFRZ 
DAC I RUNFRZ 
RUFRZX, JMP . 

/MARK PRESENT ITEM AS USED 

MARK, DAP • +4 

LAC (10000) 

IOR I BCOUNT 
DAC I BCOUNT 
JMP . 

WNPCNT, 0 /ROUTINE TO WRITE ON HELD QTRKS AND 

DAP WNPCNX /ASSURE THAT NO MORE THAN FOUR 

LAC WNPCNT /QUARTER TRACKS ARE HELD 

WNIP 

IDX ITMCNT 
SAD (10000) 

CAL QTBERR /YOU LOSE AND HALT 

WNPCNX, JMP . 

SL 
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/ROUTINE TO SET UP BUFFER 

/C { AC ) IS RELATIVE CHARACTER POINTER INTO BLOCK 

/C(IO) is dra of the block 

/WORD FOLLOWING JDA IS ADDRESS OF SIX WORD BLOCK CONSISTING 0 
/TEXT POINTER, DRUM ADDRESS , BOTTOM OF BUFFER, TOP OF BUFFER, PQ 
/TABLE OF COUNTS, POINTER TO BEGINNING OF TEXT BUF, 

SETUP r 0 

DAP SETUPX 

LAC I SETUPX /GET ADDRESS OF FIVE WORD BLOCK 
DAP SETUPA 

JSP GETIT /GET ITEM DESIRED INTO CORE 

LAC BBPTR2 

ADD SETUP /CALCULATE PHYSICAL TEXT POINTER 

SETUPA, DAC . /AND SAVE IN TEXT POINTER 

IDX SETUPA 
LAC BORA 
DAC I SETUPA 
IDX SETUPA 

LAC BBPTR1 /SET EXT POINTER TO BOTTOM OF BUFFER 

IOR (600000) 

DAC I SETUPA 
IDX SETUPA 

LAC 83PTR /SET POINTER TO TOP OF BUFFER 

ADO (JMP+BLNG-1) 

DAC I SETUPA 
IDX SETUPA 
LAC I BCOUNT 
IOR I SETUPX 
DIP I BCOUNT 
IDX SETUPX 

LAC BCOUNT /SAVE POINTER TO CHECK TABLE 

DAC I SETUPA 

IDX SETUPA 

LAC BBPTR2 

DAC I SETUPA 



SETUPX, 


JMP , 








MARKBK, 


DZM BRKCNT 


/MARK EXISTENCE 


OF 


BREAK 




RSMC+3 


/AND DEBREAK 






CHKBRK, 


DAP CHKBRX 
CLA 


/HAS THERE BEEN 


A 


break 




SAD BRKCNT 

cal brkepr 


/0 IF BREAK 






CHKBRX . 
&L 


JMP , 









fr. H 
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GETPDL, 


DAP 


GETPPX 




JSP 


getit 




DIO 


pdldra 




LAC 


(-40000) 




AND 


I PLCOUNT 




dac 


I PLCOUNT 




lac 


BCOUNT 




dac 


PLCOUNT 




LAC 


( 40000) 




XOR 


I PLCOUNT 




dac 


I PLCOUNT 




lac 


BBPTR 1 




dap 

IDA 


PUSHF 




dap 

IDA 


PUSHG 




dap 


PUSHP 




ADD 


(BLNG-4) 




dap 


pusht 




SUB 


M) 


GETPDX, 


JMP 


• 


PUSH, 


3 






dap 


PUSHX 




DIO 


PUSHI 


PUSHA, 


lac 


I PUSHX 




dap 


PUSHB 




AND 

SZA 


(770000) 




JMP 


PUSHC 




lac 


PUSHP 




SAS 


pusht 




JMP 


PUSHD 


PUSHF, 


LIO 


P 




SNI 


I 




JMP 


PUSHD-1 




JSP 


GETIT" 1 




DIO 


I PUSHF 




lac 


PDLDRA 




dac 


I BBPTR2 


PUSHD-1, 


JSP 


GETPDL 


PUSHD, 


lac 


( 10000) 




IOR 


I PLCOUNT 




Dac 


I PLCOUNT 




IDX 


PDLCNT 




SAD 


(PDLNG) 




CAL 


pdlerr 


PUSHB, 


LAC 


« 


PUSHP , 


dac 


t 




IDX 


PUSHX 




IDX 


PUSHP 




JMP 


PUSHA 



/SET UP POINTERS For push.*dqwn 
/GET DESIRED HEM INTO CORE 

/UNFREEZE PREVIOUS ITEM 



/SET FREEZE PTR TO THIS ITEM 
/FREEZE this one 



/RESET forward POINTER 

/RESET BACK POINTER 

/RESET POINTER TO PRESENT LOCATION 

/RESET POINTER TO TOP 
/RETURN IN AC FOR PULL ROUTINE 



/PUSH DOWN ROUTINE (TRANSPARENT TO AC) 



/NOTHING TO PUSH 

/ARE WE OFF TOP OF BUFFER? 

/NO 

/YES" is the forward ptr 0 



/GET A NEW ITEM 

/SET UP FORWARD POINTER 

/AND BACK POINTER 

/SET UP POINTERS FOR NEW 

/MARK THIS BLOCK USED 



/KEEP COUNT OF ENTRIES ON PDL 
/IS PDL TOO LONG 

/GET WORD AND STORE IT 
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PUSHC, 


lac 


PUSH 






LIO 


PUSHI 




PUSHX * 


JMP 


t 




PUSHG, 

&L 


dac 


* 


/PTE TO BACK PTE 
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PULL, 0 

DAP PUSHX 
DIO PUSHI 

PULLA, LAC I PUSHX 

PAP PULLB /GET ADDRESS OF WHERE TO PUT 

AND (770000) /IS THERE ANYTHING MORE TO PUT 
SZA 

J.MP PULLC /NO 

LAW I 1 /YES-BACK UP COUNT 1 

ADD PDLCNT 
DAC PDLCNT 

LIO I PUSH5 /BACK PTR TO 10 (USED IF OFF BOTTOM) 

LAW I 1 /BACK UP PDL PTR 1 

ADD PUSHP 

SAD PUS HG /ARE WE OFF BEGINNING OF BUFFER 

JSP GETPDL /YES-GO GET PREVIOUS BLOCK 

DAP PUSHP 
LAC I PUSHP 
PULLB, DAC . 

IDX PUSHX 
JMP PULLA 

PULLC, LAC PULL 

JMP PUSHC+i 

ACPUSH, 0 

JDA PUSH 
ACPUSH 
JMP PUSH+1 

ACPULL, dap , +3 

JSP PULL+1 
PULL 
LAW . 

JMP PULL+1 

PDLCLR, Dap PDLCLX /CLEAR PDL: CLEAR TO POSITION IN 10 

LAI 

SAD PDLCNT 
PDLCLX, JMP , 

JDA PULL 
TEMA 

JMP PDLCLX, 1 

SGET, DAP SGETX /ROUTINE TO GET CHARACTER FROM SYMBOL 

IDX SGETP /STORED WITH FIRST 15, CHARACTERS IN 

SUB (LAC SYM+5) /S YM-SYM+5 

SMA 

JMP SGETA /NOW LOOKING IN VIRTUAL MEMORY FOR CHARACTER 

DZM FWORDP+4 /MARK THAT STILL LOOKING IN CORE 
SGETP, LAC . 

SGETX, JMP . 
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SGETA, 

SGETB » 
GWORD, 

GWORDF, 

GWORDC, 

GWORDX, 

NTHWD, 



GWORDA, 



GWORDE, 

GWORDD, 

GWORDB, 

NTHWDA, 

USEDG, 

USEDGX, 

SL 



SZA 

JMP SGETB 
LODE NDRA 
JDA SFWORD 
JSP FWOSD 
JMP SGETX 



/IS THIS FIRST TIME TO LOOK AT DRUM 
/NO 

/YES. SET UP REGISTERS 



Dap GWORDX /GET A WORD FOR SEARCH ROUTINES 

LAC GWORDP 
SAD GWQRDP+3 

JSP gwobda 

IDX GWORDP 
LAC I GWORDP 
JMP , 



0 

DAP GWORDX 
LAC NTHWD 
AND (7777) 

ADD GWQRDP 
SUB GWORDP+3 
SPQ 

JMP NTHWDA 
DAC NTHWD 
LAW NTHWD+2 
DAP GWORDB 
JSP UGWORD 
LIO I GWORDP+2 
SNI I 

JMP GWOlDE 
LIO I GWORDP+1 
JSP NEW'ITM 
LAC (JMP-1) 

JDA SGWORD 

NOP 

JMP . 



/COMPARE TOP AND C(GWORDP)+N 



/REMAIN WITHIN THIS BLOCK 
/RESET N AND Go TO NEXT BLOCK 

/GET NEXT BLOCK FOR GWORD 



/DRA 



ADD GWORDP+3 
DAC GWORDP 
JMP GWORDC 

DAP USEDGX /MARK GWORDP AS USED 

LAC (010000) 

IQR I GWORDP+4 
DAC I GWORDP+4 
JMP , 
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GWORDS, 0 

DAP GWRDSX 
JSP GWORD 
JSP USEDG 
LAC GWORDS 
DAC I GWORDP 
GWRDSX, JMP . 

SGWORD, 0 /SET UP GWORDP 

DAP SGWRDX 
LAC SGWORD 
JDA SETUP 
400000 GWORDP 
SGWRDX, JMP . 

RGWORD, DAP RGWRDX /CALCULATE RELATIVE POINTER 

LIO I GWORDP* 1 
LAC GWORDP 
SU9 GWQRDP+5 
RGWRDX, JMP . 

UGWORD, DAP RUFRZX /FREE GWORDP 

LAC GWORDP+4 
DAC RUNFHZ 
JMP RUNFRZ+2 

FWORD * DAP FWOSDX /ANOTHER READ ROUTINE 

lac fwordp 

SAD FWQRDP+3 
JSP FWORDA 
fwordb, idx FWORDP 

LAC I FWORDP 
FWORDX, JMP , 

FWORDA, DAP FWORDD 

JSP UFWOBD 
LIO I FWQROP*2 
SNI I 

JMP FWORDB 
LIO I FWORDP*1 
JSP NEWITM 

FWORDB, LAC (JMP-1) 

JDA SFWORD 
JMP . 



FWORDD, 
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SFWORD, 

SFWRDX, 

UFWORD, 



UFWRDX, 

USFDF, 

USEDFX, 
F WORDS , 



FWORDT , 
<5L 



0 /SET FWORDP 

DA? SFWRDX 
LAC SFWORD 
JDA SETUP 
200000 FWORDP 
JMP . 

DAP UFWRDX /RELEASE FWORDP 

CLA 

SAD FWORDP+4 
JMP UFWRDX 
LAC (-200000) 

AND I FWORDP+4 
DAC I FWORDP+4 
J0P . 

DAP USEDFX /MARK FWORDP AS USED 

LAC (010000) 

XOR I FWORDP+4 
DAC I FWORDP+4 
JMP , 

g /AUXILLARY ROUTINE TO STORE THRU FWORDP 

DAP FWORDT 
JSP FWORD 
JSP USEDF 
LAC FWQRDS 
DAC I FWORDP 
JMP , 
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tline, dap slinex 

Lio CHABNO 
SB I 

JMP SLINEX 
SLINE, DAP SLINEX 

LAC (760000) 

TYO 

DZM CHAHNO 
SLINEX , JMP . 

TWORD, DAP TWORDX /GET NEXT WORD FROM A COMMAND 

LAW I 1 /DECREMENT COUNT LEFT 

add nptr 

DAC NPTR 
LAC TEXTP 
SAD TEXTP+3 
JSP TWORDA 
IDX TEXTP 

TWORDB , LAC I TEXTP 

TWORDX, JMP . 

gns , dap gnsx /get next symbol: forget COMMENTS 

JSP TWORD 
AND (700000) 

SAD (100000) 

JMP GNSA /COMMENT 

LAC I TEXTP /NOT COMMENT 

GNSX, JMP . 

GNSA, JSP EVALG 

JMP GNS+1 

GNST, 0 

DAP GNSV /SKIP OVER N WORDS 

LAC NPTR /UPDATE REGISTERS LEFT COUNTER 

SUB GNST 

DAC NPTR 

GNSB , LAC TEXTP 

SUB TEXTP+3 
ADD GNST 
SPQ 

JMP GNSC 
DAC GNST 
LAW GNSB 

TWORDA, DAP TWORDC 
JSP UTWORD 
LIO I TEXTP+2 
SNI I 

JMP TWORDD 
LIO I TEXTP+1 
JSP newitm 

TWORDD, LAC (JMP-1) 

JDA ST WORD 
LAC TEXTP 
TWORDC, JMP , 

&L 
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GNSC, 

GNSV, 

UTWORD, 

UTWRDX. 

STWORD, 

STWSDX, 

SL 



ADD TEXTP+3 
DAC TEXTP 
JMP , 

DAP UXWBDX /RELEASE TEXTP 

LAC (-100000) 

AND I TEXTP+4 
DAC I TEXTP+4 
JMP . 

0 

DAP STWRDX 
LAC STWORD 
JDA SETUP 
100000 TEXTP 
JMP , 
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/DRUM SEARCH ROUTINE 

/R1 MEANS ENTRY IS NOT IN TABLE 

/R2 MEANS ENTRY IS IN TABLE AND VARIABLES SET UP 



DLOOK, 

DLOOKF, 

DLOOKB, 

DLOOKH, 



DLOOK A , 
DLOOKC, 

DLOOKE, 



dap 


DLOOKX 


lac 


( JMP- 1 ) 


JDA 


SGWORD 


JMP 


DLOOKH 


LAI 




SUB 


( 1 1 


JDA 


NTHWD 


JSP 


RGWORD 


DIO 


sdra 


dac 


sdra+i 


JSP 


GWOBD 


DIP 


POINT 


AND 


(7777) 


SZA 


I 


JMP 


DLOOKG 


lia 




SUB 


(3) 


SZF 


6 


IDA 




SAS 


WRDCNT 


JMP 


DLOOKB, 


law 


SYM-1 


dap 


sgetp 


DZM 


tema 


JSP 


GWORD 


DAC 


TEMB 


JSP 


sget 


SAD 


TEMB 


JMP 


DLOOKD 


JSP 


UFWORD 


LAC 


WRDCNT 


SZF 


I 6 


IDA 




SUB 


TEMA 


JMP 


DLOQKB+2 



/GET NEXT RELATIVE COUNT 



/SAVE TOP BITS 

/ARE WE DONE 
/YES 

/RELATIVE COUNT TO 10 IN CASE FAIL 
/COMPARE WE WORD COUNT OF SYMBOL 
/SET MEANS ONLY ONE INFO WORD 



/NOT SAME LENGTH 
/PREPARE TO COMPARE WORDS 

/SET COUNTER OF WORDS 
/GET WORD FROM TABLE 



/SO FAR SO GOOD 

/FREE VIRTUAL MEMORY-DIDN ' T MAKE IT 
/GO GET NEXT RELATIVE COUNT 



&L 
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DLOOKD , 1DX TEMA /COUNT WORD THAT WON 

SAS WRDCNT /ARE WE DONE WITH SYMBOL YET 

JMP DLOOKC 
JSP UFWORD 

JSP GWORD /WON-SO GET INFO 

D AC POINT+1 

SZF I 6 /DON'T GET ANOTHER IF WORD IF THERE ISN'T ONE 

JSP GWORD 
DAC POINT+2 

IDX DLOOKX /GIVE RETURN 2 

DLQOKG, JSP UGWORD 

LAC (NOP) /RESET SO SURE THAT GWORD IS RIGHT 

DAC GWORDD 

CLP 6 /RESET TO TWO WORDS OF INFO 

DLOOKX, JMP . 



DLOOKI, dap DLOOKX /SEPARATE ENTRY FOR VARIABLE LOOK-UP 

LAC (IDX GWORDP) 

DAC GWORDD 
LOAD VDRA 
JMP DLOOKF 
SL 
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/IN COPE LOOK-UP ROUTINE 
/WORD FOLLOWING IS ADDRESS OF TABLE 
/NEXT RETURN MEANS THAT IT WAS NOT FOUND 
/OTHER RETURN MEANS FOUND 



LOOK, 


DAP LOOKX 






LAC I LOOKX 


/ADDRESS OF TABLE 


LOOKA, 


DAP LOOKP 




LOOKP # 


LAC . 


/GET RELATIVE POINTER 


DAC TEME 
AND (7777) 
SZA I 


/SAVE LEGAL BITS IN CASE COMMAND 




JMP LOOKB 


/SYMBOL NOT FOUND 




SUB (2) 


/CALCULATE WORD COUNT OF SYMBOL 




SAD WRDCNT 
JMP LOOKC 


/IS IT same length 




ADD (2) 


/N0-GO GET NEXT SYMBOL 


LOOKF # 


ADD LOOKP 
JMP LOOKA 




LOOKC, 


LAW SYM-1 
DAP SGETP 


/same LENGTH : COMPARE text 




DZM TEMA 


/COUNT' OF WORDS LOOKED AT IN SYMBOL 


LOOKD, 


IDX LOOKP 
JSP SGET 
SAD I LOOKP 






JMP LOOKE 


/STILL SAME 




JSP UFWORD 
LAW 1 

ADD WRDCNT 
SUB TEMA 
JMP LOOKF 


/LOST: GO TO THE NEXT SYMBOL 


LOOK®, 


IDX TEMA 
SAS WRDCNT 


/ARE WE DONE 




JMP LOOKD 


/NOT DONE YET 


LOOKG, 


JSP UFWORD 
IDX LOOKP 
IDX LOOKX 
LIO I LOOKP 
DIO PQINT+1 
DZM PQINT+2 




LOOKB, 


IDX LOOKX 




LOOKX, 


JMP . 




CHWRD, 


0 

dap chwrdx 

LAW 7777 
AND CHWRD 
SCR 9S 
SCR 8 S 
DIV (3) 


/GIVEN CHARACTER COUNT: GET WORD COUNT 


TEMB, 


0 

SNI I 
IDA 

DAC WRDCNT 




CHWRDX, 

8L 


JMP . 
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/FIND STEP GIVEN IN SNUM 
/C(XO) IS DHA OF PROCEDURE 
/R IMPOUND 
/R2«-NOT FOUND 



SNUM, 


0 




FSTEP, 


dap FSTEPX 
LAC (JMP-1) 






JDA SGWORD 
JSP GWORD 
SUB (1) 

JMP FSTEPA+2 


/USE GWORD TO GET WORDS 


FSTEPA, 


LAW I 2 
ADD TEMA 




FSTEPA+2 , 


JDA NTHWD 






JSP RGWORD 
DIO SDRA 
DAC SDRA+1 


/GET RELATIVE POINTER 




JSP GWORD 
DAC TEMA 
SZA I 


/GET RELATIVE POINTER 




JMP FSTEPC- 1 
JSP GWORD 
SUB SNUM 
SPA 


/OFF END 




JMP FSTEPA 


/NOT FOUND YET 




SZA 


/find it? 




IDX FSTEPX 


/NO 


FSTEPC, 


JSP UGWORD 
LOAD SDRA 




FSTEPX, 


JMP , 




/dispatch 


ON COMMAND: 


ENTER WITH TEXTP SET 


dispatch. 


JDA ACPUSH 






JSP CHKBRK 
JSP GNS 
SZA I 


/HAS THERE BEEN A BREAK? 




JMP NILL 


/CONSTANT 




AND (700000) 
SAS (700000) 


/IS IT A VERB 




JMP DO 
XOR I TEXTP 
DAC .+2 
S JMP , 


/NO: SO IMPLIED do 


COMRTN, 


JSP CLINE 




POP , NILL « 


JDA PULL 
• +2 




POPX, 


S JMP , 




ERRS. 


SUB (1) 
DAP • +2 
LAW 7777 


/calculate error codes 


ERRSA, 

8L 


AND , 

S JMP ERROR 
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COLON DO 
CALC, 

EVAL, 

EVALD, 



EVALO, 

EVALO, 

2ARG, 



law 


COMRTN 


JDA 


ACPUSH 


JMP 


EVALD 


JDA 


ACPUSH 


JSP 


GNS 


LAC 


(200000) 


dac 


POINT 


store textp# 


lac 


I textp 


AND 


( 700000) 


SZA 


I 


CAL 


EVER 1 


SAD 


(200000) 


JMP 


EVALA 


SAD 


( 300000) 


JMP 


evalb 


SAD 


(400000) 


JMP 


evalc 


SAD 


(500000) 


JMP 


EVALQ 


SAS 


(600000) 


CAL 


EVER2 


XOR 


I TEXTP 


JDA 


ACPUSH 


JSP 


GNS 


SAD 


(500000 


JSP 


GNS 


JSP 


CALC 


JSP 


VALUEQ 


LAW 


TSYM 


dac. 


FWORDP 


d'zm 


FWORDP+i 


LIO 


POINT 


LAW 


point 


JMP 


POP 


XOR 


I TEXTP 


JDA 


ACPUSH 


JMP 


EVALO 


JDA 


ACPUSH 


JSP 


PPUSH 


JSP 


GNS 


SAD 


(500000 


JSP 


GNS 


JSP 


CALC 


JSP 


VALUEQ 


JDA 


PULL 


TPOINT+2 

TPOINT+1 

TPOINT 



/IMPLIED DO* OUST EXECUTE EVAL 
/EVAL WITH FIRST SYMBOL GOTTEN 

/EVALUATE following STRING 
/SET UP POSSIBLE REGISTERS 
POXNT+1 

/WHAT KIND OF SYMBOL 

/"THERE IS SOMETHING MISSING ON THIS LINE, 
/CONSTANT 

/variable name 

/DEFINED PROCEDURE 

/NO ARGUMENT BUILT-IN 

/"X" NEEDS A MEANING 
/GET DISPATCH ADDRESS 
/AND SAVE 

/IGNORE "OF" IF THERE 



OF ) 



/EVALUATE FIRST ARGUMENT 

/MUST HAVE RETURNED A VALUE 

/SET UP REGISTERS POSSIBLY NEEDED 



/AND DISPATCH TO CODE 
/DISPATCH ON ZERO ARG PRCS 



/ROUTINE TO GET SECOND ARGUMENT FOR MACHINE CODE 
/SAVE FIRST ARGUMENT 
/IGNORE "AND" IF THERE 
CAND) 

/GET SECOND ARGUMENT 
/MUST HAVE RETURNED A VALUE 



JMP EVALO 
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EVALA, LIO I TEXTP /SEE IF WORD OR SENTENCE 
BIL 3S 

LAW 7777 /ARE WE LESS THAN SIX CHARACTERS 

AND I TEXTP 
SUB (7) 

SPQ 

JMP evalp /six character mode 

lag (600000) /SENTENCE? 

SPI 

dac point 

LAW EVALO 

EVALG, dap evalgx 
LAC I TEXTP 
JDA CHWRD 
JDA GNST 
EVALGX, JMP . 

EVALP* DAC TEM.A 

LAC (700000) 

SPI I 

LAC (300000) 

DAC POINT 
JSP TWORD 

dac point+i 
law 3 
ADD tema 
Spa 

JMP EVALO 
JSP TWORD 
DAC POINT+2 
C LA 

SAD TEMA 
JSP TWORD 
JMP EVALO 

EVALB, JSP EVALG /MOVE ON TOO NEXT SYMBOL 

COLON THING JSP VGET /SET UP VARIABLE IN STANDARD FORM 

JSP LOOK /BUILT-IN NAME? 

SVTBL 

JMP EVALH /NO, CHECK OTHER NAMES 

JDA PUSH 
POINT+I 

JMP EVALO /DISPATCH TO CODE FOR SYSTEM SYMBOLS 

EVALH* JSP DLOOKI /LOOK UP IN NAMES TABLE 

JMP CEMPTY /NOT THERE, TREAT AS EMPTY 

JMP EVALO /FOUND IT SO ALL SET 



/SIX CHARACTER MODE CONSTANT: SAVE COUNT 
/SENTENCE? 

/GET FIRST WORD OF CONSTANT 

/IS THERE ONLY ONE WORD IN CONSTANT 

/yes: SO DONE 
/NO: GET OTHER WORD 

/IS THERE ALT. MODE TO SKIP ALSO 



SL 
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EVALC, 



EVALK, 



PPUSH, 



JSP 

DAC 

SZk 

CAL 



FPBQD 

TEMA 

I 

EVER 






/LOOK UP PROCEDURE 

/DRa OF PROCEDURE LOCATION 

/"X” NEEDS A MEANING 



SAD DDR A 
CAL EVER 4 
JDA PUSH 
TRCR 

JSP GWORD 
DAC TEMB 
DZM TEMC 
JSP UGWORD 



/"X” HAS NOT BEEN COMPLETELY DEFINED 

/TRACE FLAG 

/NUMBER OF ARGUMENTS 

/NUMBER OF ARGUMENTS PROCESSED SO FAR 
/FINISHED WITH DIRECTORY 



CLA 

SAD TEMB 
JMP EVALJ 
JSP gns 

SAD ( 500000 OF) 
JSP GNS 
JDA PUSH 
TEMA 



/ANY ARGUMENTS 
/NO: SO SET 

/yes: is there an of 

/IF "OF" IGNORE IT 



TEMB 



TEMC 



TEND 



TSMD+1 

TEHE 

JSP CALC 



JDA PULI 
TEME 
TEMD+ 1 
TEMD 
TEMC 
TEMB 
TEMA 

IDX TEMC 

Sad TEMB 

JMP EVALJ 
JSP gns 
SAD (500000 
JSP GNS 
Law EVALK 
JDA PUSH 
POINT 
POINT+1 
POINT+2 
JMP I PUSH 



/evaluate next argument 




^4 



/HAVE WE PROCESSED ALL ARGUMENTS 



/YES 
/NO: 
CAND ) 



SEE IF "AND" BETWENN 



/SAVE POINT ON PUSH DOWN LIST 



SL 
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EVALJ# OZM IRC® 

LAC TEME 
SPA 

IDX TRCR /THIS PROCEDURE TRACED 

DZM TEMC /DEFINE BOUND VARIABLES (BACKWARDS) 

JSP UTWORD /RELEASE PRESENT STEP 

STORE TEXTP,TP0INT+1 

LODE TEMA /GET NEW PROCEDURE IN CORE 

JDA STWORD 

load vdRa /get variable DIRECTORY IN CORE 

JDA SGWORD 

LAC (600000) /SET UP POINTER TO STOP 
I OR GWORDP+5 
DAC TEMF 

JSP TWORD /NEGLECT RELATIVE COUNT 

CLA 

Sad temb /any bound variables 

jmp evall /NO: GO on and execute 

EVALM » JSP TWORD 

DAC WRDCNT /-NO. OF WORDS IN SUMBOL 

DAC TEME 

LAC POINT+2 /SET SECOND WORD OF VALUE 
JDA VSTORE 
LAC POINT+1 
JDA VSTORE 

JSP TWORD /PUT NAME IN BACKWARDS 

JDA VSTORE 

ISP WRDCNT 

JMP . -3 

LAW 3 

SUB TEME 

I0R POINT /BOTTOM 15 BITS 0? 

JDA VSTORE /SAVE RELATIVE POINTER 

IDX TEMC /HAVE WE HANDLED ALL ARGUMENTS 

SAD TEMB 

JMP EVALL /YES 

JDA PULL /NO: GET NEXT ONE 

POINT + 2 
POINT+1 
POINT 

JMP EVALM /GO PROCESS IT 
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EVALL, 



EVALF, 



EVALN, 



JDA PUSH 
XDRA 
RNUM 
VDRA 
VDRA+1 
TRUTH 
PROD 
PROD+1 

tpoint+i 

TPOINT+2 
LAC TEMA 
DAC XDRA 
LOAD TEHD 
DIO PROD 
DAC PROD+1 
DZM TRUTH 



/SAVE QUANTITIES FROM THIS ROUTINE 



/SAVE address OF name 



/RESET TRUTH VALUE 



CLA 

SAD TSCR 
JMP * +3 
SJMP TRACP 
JSP UGWORD 
LOAD TEMD 
UNLOAD PROD 
JSP RGWORD 
DIO VDRA 
DAC VDRA+1 
JSP TWORD 
SUB (1) 

JDA GNST 
JSP TWORD 
SZA I 
JMP 'STF* 

SUB (1) 

DAC NPTR 
JSP TWORD 
DAC RNUM 
JSP DISPATCH 
JMP EVALN 



/ARE WE TRACED 
/NO 

/YES, PRINT ARGS 

/RELEASE VARIABLE DIRECTORY 

/RESET PROD 

/ARE RESET START OF VARIABLE DIRECTORY 



/REL PTR FOR TO UNI 

/SKIP OVER TO LINE 

/SKIP RELATIVE POINTER FOR STEP 

/done with procedure: no "return" 

/SET WORDS LEFT IN LINE COUNT 
/GET STEP NUMBER 

/GO EXECUTE COMMAND 




i 

57? £ — 
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vstqre. 



0 

DAP VSTORX 
LAC GWORDP 
SAS TEMF 
JMP VSTORA 
JSP UGWORD 
LIO I GWORDP+5 
SMI I 

JMP VSTORB 
LAW I 3 
ADD GWORDP+5 
JDA WNPCNT 
DIO I GWORDP+5 
JSP USEDG 
JSP getit 
DZM I BBPTR2 
LAC I GWORDP+1 
DAC I BBPTRl 
JSP USEDG 



/STORE WORD AT BEGINNING OF VARIABLE DIRECTORY 

/ARE WE AT BEGINNING OF BLOCK 

/NO: GO STORE WORD 
/yes: go to change BLOCKS 
/IS THERE A PREVIOUS BLOCK 

/yes: go read IT 

/NO: MUST ADD A BLOCK 

/WNIP AND COUNT (FOR QTRK ERROR) 

/SET POINTER IN OLD BLOCK 

/GET THE NEW ITEM IN CORE 
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VSTORB, 


LAC (JMP BLNG- 
JDA SG WORD 
LAC (600000) 
XOR GWORDP+5 
DAC TEMP 


4) /get previous 


block 


VSTORA, 


LAC VSTORE 
DAC I C-WQRDP 
LAW I 1 
ADD GWOHDP 
DAC GWORDP 
JSP USEDG 






VSTORX, 


JHP . 






FPROD, 


DAP FPRODX 


/find procedure 






JSP TWOHD 
DAC TEMD 
JSP TWORD 


/GET DRA OF NAME 






DAC TEMD+1 
LIO TEND 
JDA SGWORD 
JSP GWORD 


/GET RELATIVE POINTER 






DAC TEME 
SUB (2) 
JDA NTHWD 


/BIT 0«-TRACED# 1 •'HIDDEN 




FPRODX, 


JMP . 






CEMPTY , 


LAW EMPTY 
JDA SET 
JMP EVALO 


/handle variable name AS 


EMPTY 


&L 
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COLON 



BETB 



RETURN 

JSP 

JSP 

CLF 

JSP 

JSP 

LOAD 



EVA! 

VALUEQ 

1 

CLINE 

UTWORD 

PROD 



RETC , 



UNLOAD EXPROD 
CLA 

SAD TRCR 

jmp .+3 

SjnP TRACS 
JSP ACPULL 
TEMD 
PROD+1 
PROD 

truth 

VDRA+1 
VDH A 
P N U M 
XDRA 
TRCR 

LIO TEHD 
JDA STWOFD 

jmp 



COLON STP JSP ACPULL 
JSP CLINE 

DAC POINT 






STF 1 
JMP RETB+1 



COLON TEST 



JSP VALUED 
JSP vget 
JSP LOOK 
tftable 
CAL TSTEER 
DIO TRUTH 
JMP COMRTN 



JSP ACPULL /RETURN-REMOVE DISPATCH RETURN 

/MAKE SURE SOMETHING RETURNED 

/FLG 1 »*STOP (USED IN TRACE PRINTOUT) 

/RELEASE PRESENT CODE 

/SAVE NAME OF RETURNING PROCEDURE 

/IN CASE OF ERROR 

/traced? 

/NO 

/YES PRINT "FOO RETURNS , 



/RESET CURRENT PROCEDURE. 




/STOP, RETURN /EMPTY/ 



/MARK AS NOTHING RETURNED 



/SET IF FLAG 



r F P . 



A 1 I 




P A <L ^ 

fhl P ‘ 



rsr+l 



JSP EVAL 






iVTi 



/NOT TRUE OR FALSE 



tftable, symbol true,m 
symbol false*-o 



VALUEQ, 



VALUEX, 

&L 



0 

DAP VALUEX 
CLC 

SAD POINT 
CAL EVER6 
JMP , 



/MAKE SURE SOMETHING WAS RETURNED 



/NOTHING THERE 
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COLON IF JSP GNS /"TRUE” OH "FALSE" 

LIO IF /NOT 0 OR -0 

SAD (500000 ATBUE) 

CLI 

SAD (500000 AFALSE) 

C L I " N " C M I 
LAI 

SAD IF 

CAL IFEER /NOT "YES" OR "NO” 

SAD TRUTH 

JMP DISPATCH* 1 /OK: EXECUTE WHAT FOLLOWS 

IFA, LAC NPTR 

JDA GNST 
.IMP POP 

CLINE# DAP CLINEX /IS THERE ANYTHING ELSE ON LINE 

JSP GNS 
SZA 

cal diserr /yes: error 

CLINEX, .IMP . 

TSET, 0 /SET UP text HANDLING ROUTINE 

DAP TSETX /C( AC)=ADDRESS OF 3 WORD BLOCK 

LIO I TSET /WHAT TYPE OF VARIABLE STORAGE 

IDX TSET 
RIL 2S 
s p X 

.IMP TSETC /6 CHARACTERS OR LESS 

LIO I TSET /10s CONSTANT IN STEP 

IDX TSET 
LAC I TSET 
JDA SGWORD 
LAW GWORDA 
tsetb, dap TGETF 

TSETX# JMP . 

TSETC# DZM G WORDP+4 /II; 6 CHARACTERS OR LESS 

DZM GWORDP+5 
DAC GWORDP 
ADD ( JMP 1) 

DAC GWORDP+3 
LAW (400000) 

DAC GWQRDP+1 /MARK AS NOT FROM DRUM IF 6 CHAR MODE 
LAW TGETB 
JMP TSETB 
&L 
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TGET, 


da* 5 


TGETX 


/GET A CHARACTER FROM MEMORY 




lac 


GWORDP 






SAD 


GWQRDP+3 


/AT END OF BLOCK? 


TGETF. 


JSP 


» 


/YES, GWORDA IF STRING; TGETB IF 6 CHARACTER 




LCH 


I GWOSDP 




TGETX, 


JMP 


• 




TGETB, 


lac 


(CHARACTER 


L#) /six character mode implied # 




JMP 


TGETX 




<5L 
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TSTOB.E, 0 /GENERAL STORE CHARACTER IN VARIABLE MEM. 

DAP TSTORX 

LAC FWORDP /ARE WE DONE WITH 6 CHAR MODE 

SAS ( JMP TSTM+1 ) 

JMP TSTORB 
LIO TFREE 
DIO TPLACE 
LAC TFREE+i 
DAC TPLACE+1 
JDA SFWORD 

LAC TSyM /AND PUT THE TWO WORDS IN IT 

JDA FWORDS 
LAC TSYM+1 
JDA FWORDS 

TSTORB, Lac FWORDP /ARE WE OFF END OF 6 WORD BLOCK 

SAD FWORDP+3 
JSP FWORDA 
LAC TSTORE 
DCH I FWORDP 
TSTORX, JMP . 

VGET, DAP VGETX /SET UP VARIABLE NAME IN STANDARD FORM 

LAW POINT 
JDA TSET 
JSP FSET 
J S P TG ET 

sad (character L#) /an empty name? 

cal NMERR5 /YES 

JMP . +2 

JSP tget 

JDA FSTORFj 

SAS (CHARACTER R#) 

JMP , -3 
JSP UFWORD 
JSP UGWORD 
JMP . 



VGETX, 

&L 
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TDONE, DAP TDONX /FINISHED: TELL WHAT TYPE 

LAC fwobdp /check if implied alt, mode 
sad (jmp tsym+d 

JMP TDONC 

lac (character l#) /otherwise store an ALT, mode 

JDA TSTORE 
TDONC, CLA 

SAS FWORDP+4 /6 CHARACTER MODE? 

JMP TDONF /NO; strung blocks 

TDQND, LAC TSYM /YES 

DAC POINT-M 
LAC (300000) 

LIO TSYM+1 

TDONB, DIO POINT+2 
XOR POINT 
AND (377777) 

XOR POINT 
DAC POINT 
TDONX, JMP , 

TDONF, LIO I FWORDP+1 

DIO TFREE 

lac fwoedp 

IOR (JMP) 

SUB FWORDp+5 
DAC TFREE+1 
JSP UFWORD 
CLA 

LIO TPLACE /COPY DBA AND REL, PTR, INTO POINT 

DIO POINT+1 
LIO TPLACE+1 
JMP TDONB 
«L 
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SET, 


0 

DAP SETX 
LAC I SET 
DAC POINT 
IDX SET 
LAC I SET 
DAC POINT+1 
IDX SET 
LAC I SET 
DAC POINT+2 


/SUBROUTINE TO GIVE SET ANSWERS 


SETX, 


JMP , 




TRUE, 


300000 


TEXT .TRUE# , 


FALSE, 


300000 


TEXT .FALSE#. 


EMPTY, 


300000 


TEXT .# 


EMPTYU, 


0 


/IS VALUE empty: R 1 means yes. 




dap emptyx 
Lac (300000) 
AND I EMPTYQ 
SAS (300000) 
JMP EMPTYA 
IDX EMPTYQ 
LCH I EMPTYQ 


/transparent to io 




SAS (CHARACTER 


L#) 


EMPTYA, 


IDX EMPTYX 




EMPTYX, 

SL 


JMP , 
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FSTQRE, 



FSTOR A , 

FSTORC, 

FSTORX, 

FSTORB, 

FSET » 
FSETX # 



0 /STORE CHARACTERS IN VIRTUAL MEMORY 

Dap FSTORX 
IDX CHCNT 

lac fwobdp /are we at end of buffer 

SAS FW0RDP+3 
JMP FSTORA 

SAS (JMP SYM+4) /IS THIS THE FIRST TIME 

JMP FSTORB /NO 

LODE NDRA 

DIO POINT-M 

DAC POINT+2 

JDA SFWORD 

LAC FWORDP 

AND (6000005 

SAS (600000) 

JMP FSTORC /NOT AT BEGINNING OF WORD 

LAW 1 

ADD FWORDP 
DAP ,+1 
DZM , 

IDX WRDCNT 
C L A 

SAS FWORDP+4 
J3P USEDF 
LAC FSTORE 
DCH I FWORDP 
JMP . 

JSP FWORDA 
JMP FSTORA 

DAP FSETX 

LAC (JMP syMr.ii 

DAC FWORDP 

add (5) /INITIALIZE FSTORE 

DAC FWORDP+3 

DZM FWORDP+4 

DZM CHCNT 

D0M WRDCNT 

JMP , 
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SVTBL, SYMBOL EMPTY, CEMPTY 

SYMBOL CONTENTS, ACNTNT 
symbol line FESD,LFSCR 
SYMBOL CARRIAGE RETURN , ACRSLF 

symbol files, lfile 

SYMBOL FORM FEED.FORMF 

symbol blank, blank 
symbol BELL, BELL 
SYMBOL QUOTE, DO 
SYMBOL SKIP,CR 

SYMBOL TTN0,TTLINE /SCANNER LINE CONNECTED TO 

SYMBOL USER,USBRA 

0 



COLON FXNIT 
COLON DATESV 
COLON DATEGT 
COLON SIZE 
COLON OWNER 
COLON PRNT 

JMP , +2 

COLON TYPE 

SJMP EVAL 
COLON SUPDO 

JMP TYPE+1 

COLON DDT A 
COLON REQUEST 
COLON ASK SJMP AASK 
<S L 



SJMP FINITA 
SJMP DATSAV 
SJMP DATGET 
SJMP SIZEA 
SJMP OWNERA 
LAC ( PRNT 1 ) 

LAC (TYPED 

LAC (SUPDOF1 

CAL 7777 
SJMP REQUE1 
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15 ’ 



ITMCNT, 


10 




SYM, 


REPEAT 


5,0 


WRDCNT, 


0 




RBLPTR , 


0 




NPTR , 


0 




CHCNT, 


0 




CHARNO, 


0 




TRUTH, 


0 




tchar. 


0 




TDRA, 


0 




TFREE , 


REPEAT 


2,0 


TSYM, 


REPEAT 


2,0 


TPLACE, 


REPEAT 


2,0 


GWORDP, 


REPEAT 


6,0 


FWORDP, 


REPEAT 


6,0 


TEXTP, 


REPEAT 


6,0 


DNAME, 


REPEAT 


2,0 


DDR A , 


0 




IDRA, 


0 




GCDRA, 


0 




CDRA, 


repeat 


2,0 


DCDRA, 


REPEAT 


2,0 


PDR A , 


0 




VDRA, 


REPEAT 


2,0 


GVDRA, 


0 




ADRA, 


0 




AVALUE, 


REPEAT 


2,0 


NDR A , 


0 




SDRA , 


repeat 


2,0 


PROD, 


REPEAT 


2,0 


EXPROD, 


REPEAT 


2,0 


XDRA, 


0 




RNUM, 


0 




SECOND, 


0 




PDLDBA, 


0 




OPDLDRA, 


0 




PLCOUNT, 


13 




PDLCNT , 


0 




PRCNT , 


0 




PUSHT, 


dac . 




PUSHI, 


0 




POINT, 


REPEAT 

740000 


3,0 


TPOINX, 

<5L 


REPEAT 


3,0 



/NUMBER OF ITEMS WRITTEN 

/STORE FIRST 15 CHARACTERS OF SYMBOL HERE 
/COUNT OF WORDS IN SYMBOL 
/RELATIVE POINTER FOR STEP 
/COUNT LEFT IN LINE (SOMETIMES) 

/character count IN symbol 

/TT CURSOR POSITION ON PAGE 

/IS FLAG FOR TRUTH AND FALSEHOOD 

/ACTUAL CHARACTER TO TERMINATE LAST COMMAND 

/DRUM ADDRESS FOR VARIABLE LINKING 

/FREE LIST POINTER 

/BUFFER FOR SIX CHARACTER MODE 

/DRA AND RELATIVE OF TEXT BEING STORED 

/SET OF POINTERS FOR SEARCH 

/SECOND SET OF POINTERS FOR SEARCH 

/POINTERS FOR COMMAND SCAN 

/NAME OF procedure 

/DRA OF PROCEDURE BEING DEFINED 

/DRA OF INPUT STRING 

/DRA OF BEGINNING OF CDRA 

/DRA OF DIGESTER CODE AND DIRECT COMMANDS 

/CDRA FOR DO COMMAND 

/DRA OF PROCEDURE DIRECTORY 

/DRA OF VARIABLE DIRECTORY 

/GLOBAL VARIABLES DRUM ADDRESS 

/DRA OF ABBREVIATION DIRECTORY 

/DRA OF VALUE OF ABBREVIATIONS 

/DRA FOR LONG NAMES 

/DRA OF LAST SYMBOL FOUND IN SEARCH 
/PTR. TO NAME OF PROD BEING EXECUTED 
/NAME OF PROCEDURE JUST RETURNED 
/DRA OF RUNNING PROCEDURE 
/STEP NUMBER BEING EXECUTED 
/CLOCK REGISTER 

/DRA OF PUSH DOWN LIST-THIS ITEM 
/DRA OF BEGINNING OF PDL 

/POINTER TO CHANGE WORD FOR THIS ITEM OF PDL 

/PDL COUNT OF ENTRIES 

/PROCEED PDL DEPTH 

/POINTER TO TOP OF PDL BUFFER 

/TEMP STORAGE FOR 10 IN PUSH AND PULL 

/MAIN TEXT POINTER FOR STRINGS 

/ALT, MODE SOMETIMES USEFUL 

/SECONDARY TEXT POINTER FOR STINGS 
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BTBL , 


REPEAT 


BCNT # 0 


/TABLE OF DRA'S FOR BUFFERS 


BCHK, 


REPEAT 


BCNT # 0 


/TABLE OF CHANGE REGISTERS FOR BUFFERS 


BBPTR > 


0 




/ADDRESS OF CURRENT BUFFER 


BBPTB 1 , 


0 




/ADDRESS OF CURRENT BUFFER+ 1 


BBPTR 2 , 


0 




/ADDRESS OF CURRENT BUFFER+2 


DRUMT, 


0 




/TEMP, STORAGE FOR DRUM ROUTINES 


drumx » 


0 




/TEMP STORAGE FOR DBA IN FITM, FBUF 


BCOUNT, 


0 




/ADDRESS OF CHANGE REGISTER, THIS BUFFER 


BTIME, 


0 




/NUMBER OF ITEMS REFERENCED SO FAR 


FNUM » 
VERB, 
SSBASE, 


0 

0 

REPEAT 


6,0 


/TEMP STORAGE FOR DRA’S 


TEMD , 


REPEAT 


2,0 


TEMF, 


0 




/STORAGE USED BY EVAL FOR VSTORE 


FLPTR » 


REPEAT 


2,0 


/PTRS FOR LOADING FROM FILES 


TRCR , 


0 




/0 IF PROD NOT TRACED 


NTRCS, 


0 




/DEPTH OF TRACES 


FLSFLG, 


0 




/FLG FOR SKIPPING PRCS IN GET 


DDTSEG, 


0 




/DRUM ADDR OF DDT IF THERE IS ONE 


PERMIN, 


0 




/PERMANENT DRA OF INPUT SEG 


RANDA, 


0 




/FOR RANDOM NUMBERS 


HOARDB, 


flexo 

0 


PMW 


/HOARDING BIT 


BRKCNT, 


1 




/ZERO IF A BREAK HEARD 


USER, 


0 




/USER'S ID FOR FILES (BIT 0*WHEEL) 


INXTFL, 


0 




/DRA OF INITIALIZING FILE 


FILDP.A, 


0 




/DBA OF FILE DIRECTORY 


OFREFt, 


0 




/DRA OF BEGINING OF VARIABLE STORAGE 
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/SEGMENT ROUTINES 

/ADDRESS SEGMENT BY EXTENDED ADDRESS? SEG NUM IN TOP 6 BITS 
/PHYSICAL CORE ADDRESS IN BOTTOM 12 BITS 
/SEG NUMBER 0 MEANS DO NOT READ IN SEG 

.SUSP, da? SJMPX / JSP SIMULATOR 

Law I STBL-1 
ADD SEGPTR 
AND (37) 

PAR 6 S 
XQR SJMPX 
XOR (600000) 

IDA 

DAC ,SJMP 
JMP SJMPA 

0 /JMP SIMULATOR 

DAP SJMPX 
LAC I SJMPX 
DAP SJMPX 
RAL 6S 
AND (37) 

SZA I /IF 0 SEGMENT MEANS DON'T READ IN 

JMP SJMPB 
ADD (STBL-1) 

DAP SEGPTR 
LAC . 

SAD SEGDRA 
JMP SJMPB 
DIO DRUM 
LIA 

LAW SEG 
RAIS 1 

3 

DIO SEGDRA 
LIO DRUM 
LAC . S JMP 
JMP , 

SEGDRA, ,+1/ 

SEG, CON-. 

0 

REPEAT 1 IF P, PRINT (SEG* 

SEGNO 3 1 
&L 



. S JMP , 
SJMPA # 

SEGPTR, 

TEMC, 

SJMPB, 

SJMPX, 
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JDA EMPTYQ /FIRST OF 



/sentence 



/WORD: STORE FIRST CHARACTER (ALSO LAST STORE) 
/FIRST IS ALWAYS A WORD 



FIESTA, JSP TGET /SENTENCE 

SAS (CHARACTER L#) 

SZA I 

JMP FIRSTE 
JDA TSTORE 
JMP FIRSTA 

COLON BUTF 

JMP EVRLO 
LAW POINT 
JDA TSET 
LIO POINT 
SPI 

JMP BUTFA 
JSP tgst 
SAD (770000) 

JSP TGET 
butfb# JSP tfin 

JSP UGWORD 
JMP EVALO 

BUTFA# JSP TGET 

SZA I 
JMP BUTFB 

SAS (CHARACTER L# ) 

JMP BUTFA 
JSP UGWORD 
JMP CEMPTY 



JDA EMPTYQ /BUT FIRST 

/WORD: PASS FIRST CHARACTER 
/DO RIGHT THINGS FOR POINTERS 



COLON FIRST 

JMP EVALO 
LAW POINT 
JDA TSET 
LIO POINT 
SPI 

JMP FIESTA 
JSP TGET 
JDA TSTORE 
SAS (77) 
JMP .+3 
JSP TGET 

FIRSTE, JDA TSTORE 

FIRSTB, DZM POINT 

JSP UGWORD 
FIRSTC, JSP TDONE 
JMP EVALO 
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TFIH* DAP TDONX 

LAC (300000) 

AND POINT 
SAD (300000) 

JMP TFINA 
JSP RGWOHD 
DIO POINT+1 
DAC P0INT+2 
LAW TSYM 
DAC FWORDP 
TCHKC » JSP TGET 

LAC (JMP TSIM-M) 

sad fwobdp 

JMP TCHKB /DON’T THINK MADE IT 

LCH GWORDP 

DCH I FWORDP 

SAS (CHARACTER R# ) 

JMP TCHKC 

TCHKD, JSP UGWORD 

JMP TDOND /6 CHARACTER MODE! CHANGE POINTER 

TCHKB, LCH GWORDP /FAILED! IS IT ALT MODE 

SAD (CHARACTER L#) 

JMP TCHKD 

TCHKE » JSP UGWORD 

JMP TDONX 

JDA TSTORE 
TFINA, JSP TGET 

SAS (CHARACTER L#) 

JMP TFlNA-1 
JSP UGWORD 
JMP TDONE+1 
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WORDS , 0 /SUBROUTINE FOR SENTENC AND WORD 

DAP WORDSX 
LAC WORDS 
JDA TSET 
WORDS A , JSP TGET 

SAD (CHARACTER L#) 

JMP WORDSB 
JDA TSTORE 
JMP WORDSA 

WORDSB, JSP UGWORD 

WORDSX, JMP , 

WORDC , 0 /ANOTHER SUCH SUBROUTINE 





dap 


WORDCX 




LAW 


TPOINT 




JDA 


emptyq 




JMP 


wordca 




law 


POINT 




JDA 


emptyq 




JMP 


W0RDC3 


WQRDCX, 


JMP 


• 


WORDCB, 


LAW 


TPOINT 




JDA 


SET 


WORDC A , 


LAW 


POINT 




JDA 


EMPTYQ 




JMP 


EVALO 




LAC 


WORDC 




IOR 


POINT 




dac 


POINT 




JMP 


EVALO 



COLON WRD SJSP 2 ARG 
LAC TPOINT 
SMA 
Spl 

cal wrderr 
CLA 

JDA WORDC 
LAW TPOINT 
JDA WORDS 
LAW POINT 
JDA WORDS 
JMP FIRSTC 
SI 



/WORDS GET BOTH ARGUMENTS 
/BOTH ARGUMENTS MUST BE WORDS 
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COLON SENT 

LAC (400000) 

JDA WORDC 
LAW TPOINT 
JDA WORDS 
CLA 

JDA TSTQRE 
LAW POINT 
JDA WORDS 

SENTA » LAC (400000) 

DAC POINT 
JMP FIRSTC 
COLON WORDQ 
COLON SENTQ 

CLI , 'U"CWI 
LAW TRUE 
SPI I 

SENTQA, LAW FALSE 

JMP CEMPTY+1 

COLON EMpTQ 

LAW POINT 
JDA EMPTYQ 

J HP emptqa /true 
jmp sentqa /false 

EMPTQA , LAW TRUE 

JMP CEHPTY+1 

COLON ZEROQ 

LAW POINT 
JDA TSET 
JSP tget 

SAS (CHARACTER L+) 

SAD (CHARACTER L-) 

JSP TGET /SKIP THE SIGN 

SAS (CHARACTER L0) 

JMP zeroqa /false 
JSP tget 

SAD (CHARACTER L0) 

JMP , -2 /SKIP ANY NUMBER OF ZEROS 

SAS (CHARACTER L#) 

JMP ZEROQA 
JSP UGWORD 
JMP EMPTQA 

ZEROQA, RAL 6S 

XOR (20) 

SUB (10.) 

SMA 

CAL ZERERR /NOT A NUMBER 

JSP tget 

SAS (CHARACTER L#) 

JMP ZEROQA 

JMP SENTQA /RETURN FALSE 

&L 



SJSP 2ARG 



CMI /WORDQ 

JDA EMPTYQ /SENTENCED 

/IF EMPTY AUTOMATICALLY TRUE 
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COLON NUMQ 



NUMQ A # 
NUMQA+3, 

NUMQD, 

NUMQC, 

NUMQB , 
NWORD # 

NWQRDA, 

NWORDX, 



SPI I /NUMBERQ 

JDA EMPTYQ 

JMP SENTQA /MUST BE NON-EMPTY WORD 

LAW POINT 
JDA TSET 

JSP TGET /CHECK for sign 

SAS (CHARACTER L-) 

SAD (CHARACTER L+) 

JMP NUMQC /SIGN EXISTS 

JMP NUMQA+1 



JSP tget 

SAD (CHARACTER L#) 

JMP NUMQB /MUST BE NUMBER SINCE HASN'T FAILED 

RAL 6 S 
XOR (20) 

SUB (12) 

S P A 

JMP NUMQA 

JSP UGWORD /NOT A NUMBER 

JMP SENTQA 

JSP tget /got sign: make SURE FOLLOWED BY number 

sad (character L#) 

JMP NUMQD /NOT A NUMBER 

JMP NUMQA+3 



JSP UGWORD 
LAW TRUE 
JMP CEMPTY+1 

DAP NWORDX /GET NEXT (WORD OR CHARACTER) 



IDX TEME 
JSP TGET 
SAD (770000) 

JSP TGET 
LIO POINT 
SPI I 

JMP NWORDX /WORD: 

SAS (CHARACTER L#) 

SZA I 
JMP . 

IDX TEME 
JSP tget 
JMP NWORDA 



so return each character 



SL 
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WAIT A » CLA 

DELAY 



/wait for end of OUTPUT 



COLON WAIT 

- — era- - 

PEEK 

AND (40) 

SZA 

JMP WAXTA 
SJSP EVAL 
CLF 7 
LAC POINT 
AND (700000) 
SAS (300000) 
CAL WAITER 
LAW POINT+1 
DAC fsa 
DNM 

CAL waiter 
spo 

CAL WAITER 



If 1C 



/TYPEING OUT NOW 
/YES 



/6 character number? 

/TOO LARGE 



DAC temb 

SUB (60,” T" 60,” T" 24. ) 

SMA 

CAL WAITER /TOO LONG A WAIT 

LCH I FSA /NUMBER IS OK 

SAS (CHARACTER L#) 

CAL WAITER /BUT THERE’S SOMETHING ELSE 

JSP SEC /CURRENT time 



DAC TEMC 
LAC TEMB 



WAIIB , DELAY 

JSP CHKBRK 
JSP SEC 
SUB TEMC 

SPA /INTO NEXT 

ADD ( 6 0 , " T " 6 0 , " T ” 2 4 , ) 

SUB TEMB 



CM A 
SPQ 

JMP COMRTN 

JMP waitb /wait some 

COLON COUNT JDA TSET 

DZM TEMB 

COUNTS, JSP NWORD 

SAD (CHARACTER L#) 

JMP COUNTA 
IDX TEMB 



JMP COUNTS 



DAY? 

/yes 



MORE 

/COUNT 



T7TJ"K '^ r ~" 
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COUNTA, 


SPT 








1DX 


TEMB 


/WILL FIT IN 6 CHARACTER MODE 




lac 


(300000) 




dac 


POINT 






JSP 


UGWOBD 






LAW 


POINT+1 






dac. 


STS 


/CHECK TO SEE THAT NUMBER NOT TOO LONG 




lac 


TEMB 




SUB 


C10E5 


/100000. 




SMA 








CAL 


CNTEBR 






lac 


TEMB 






SNM" 


U " 1 0 






JMP 


EVALO 




C10E5, 


100000, 




COLON LAST 




JDA EMPTYO 




JMP 


EVALO 






LAW 


POINT 






JDA 


TSET 






LIO 


POINT 






SPI 








JMP 


lastb 


/A WORD SO FIND LAST CHARACTER 


LASTC » 


JSP 


tget 




SAD 


(CHARACT 


SR L#) 




JMP 


lastd 






SAS 


(770000) 


/IS warning? 




JMP 


LASTE 


/NO JUST SAVE CHARACTER 




JSP 


tget 


/YES, GET SECOND HALF 




IOR 


(77) 


/MARK WARNING 


LASTS, 


dac 


IEME 


/SAVE IT 




JMP 


LASTC 




LASTD, 


lac 


TEME 


/STORE LAST CHARACTER 




RAE 


6 S 






SPA 




/warning? 




JMP 


. + 3 


/YES 




RAL 


6S 


/NO UNROTATE 




JM? 


FIRSTE 






JDA 


TSTORE 


/YES, STORE BOTH HALVES 




JMP 


FIRSTE 




SL 
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LASTB, JSP RGWORD 

DIO TPOlNT+1 
DAC TP0INT+2 
JSP NWORD 

SAS (CHARACTER L#) 

JMP LASTB 
Lac (377777) 

AMD POINT 

DAC POINT /MUST BE A WORD 

SAD (300000) 

JMP LASTA /6 CHARACTER MODE 

DAC TPOINT 

LAW TPOINT 

JDA TSET 

JMP BUTFB 

LASTA, LAC TPOINT+2 

DAC GWORDP 
JMP BUTFB 

COLON BUTL JDA EMPTYQ 

JMP EVALO 
LAW POINT 
JDA TSET 
DZM TEME 

BUTL A » LAC TEME 

DAC TEMA 
JSP NWORD 

SAS (CHARACTER L#) 

JMP BUTLA 
JSP UGWORD 
LAW I 1 
ADD TEMA 
SPQ 

JMP CEMPTY 
CM A 

DAC TEME 
LAW POINT 
JDA TSET 
BUTLB, JSP TGET 

JDA TSTORE 
SAD (77) 

JMP BUTLB 
ISP TEME 
JMP BUTLB 
JMP FIR.STB + 1 
£ L 
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CSET , 0 /SECOND SET OF TEXT HANDLING ROUTINES 

DAP CSETX /JUST LIKE TSET AND TGET 

LIO I CSET 
IDX CSET 
BIL 2S 
SPI 

JMP CSETC 
LIO I CSET 
IDX CSET 
LAC I CSET 
JDA SFWORD 
LAW FWORDA 

C5ETB, DAP CGETF 

CSETX# JMP , 

CSETC# DZM FWORDP+4 

DAC FWORDP 
ADD (JMP 11 
DAC FWORDP+3 
LAW CGETB 
JMP CSETB 

CGET, DAP CGETX /GET CHARACTER FROM TEXT 

LAC FWORDP 

CGETA# SAD FWORDP+3 

CGETF, JSP . 

CGETD, LCH I FWORDP 

CGETX# JMP . 

CGETB# LAC (CHARACTER L#) 

JMP CGETX 

SL 
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COLON DO LAC DQUOTE 
NFILLA , DAC NFILL 

LAW NPILL-1 
JMP CEMPTY+1 

COLON USERA LAW NFILL 

DAC STS 
LAW 7777 
AND USER 
SNM+10 

JMP NFILLA-*- 1 

COLON BELL LAC DBELL 

JMP NFILLA 

COLON BLANK LAC DBLANK 

JMP NFILLA 

COLON CR LAC CRLF 

JMP NFILLA 

COLON LFSCR LAC DLFSCR 

JMP NFILLA 

COLON ACB.SLF LAC DCRSL? 

JMP NFILLA 

COLON FOSMF LAC DFORM 

JMP NFILLA 

DQUOTE, TEXT . 

DBELL, 770774 

DBLANK, 770274 

CRLF, 767400 

DLFSCR, 771274 

DCRSLF, 771574 

DFORM, 771474 

300000 
0 
0 



NFILL, 
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SEC, DAP SECX 

GTD 1 
CLA"U*'SWP 
MUL (60.) 
SCR IS 
DIO TEMA 
RCK 20 
SCL IS 
DIV ,+1 
1000 , 

ADD TEMA 
SECX, JMP . 



/CALCULATE SECONDS in day so fab 
/GET MINUTES 



/MINUTES IN SECONDS 
/GET MILLISECOND CLOCK 



COLON 


CLOCK 


LAW POINT* 1 




dac 


STS 




JSP 


SEC 




SUB 


SECOND 




SPA 






ADD 


(60," T” 60, "T" 24, ) 




SNM+10 




lac 


(300000) 




dac 


point 




JMP 


EVALO 


COLON 


RESET 






JSP 


GNS 




SAS 


(500000 CLOCK) 




CAL 


B.ST.ERR 




JSP 


SEC 




dac 


SECOND 




JMP 


COMBTN 



SL 
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COLON IS SJSP 2AHG /COMPARE TWO STRINGS 

LAW POINT 
JDA TSET 
LAW TPOINT 
JDA CSET 

ISA, JSP TGET 
DAC TEMB 

SAD (CHARACTER L#) 

JMP ISB 
JSP CGET 

sad (character l#) 

JMP ISP 
SAD TEMB 
JMP ISA 

ISP, JSP TJGWORD 

JSP UFWORD 
LAW FALSE 
JMP CEMPTY+1 

ISB, JSP CGET 

SAS (CHARACTER L#) 

JMP ISF 
JSP UG WORD 
JSP UFWORD 
LAW TRUE 
JMP CEMPTY+1 
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MAKER , 

MAKEG, 

MAKED, 



5* 24 JULY 1969 2030S34 



PASS 57 



JSP GNS 
SAS (CNAME) 

JMP MAKEA 
SJSP EVAL 
JSP VALUEQ 
JSP GNS 
SAS (CXHING) 

CAL NMERR2 
JSP PPUSH 
SJSP EVAL 
JSP VALUEQ 
JSP GNS 
SZ A 

cal NMERR1 
LAC POINT 
AND (300000) 

SAS (200000) 

JMP MAKED 
LAW POINT 
JDA TSET 
JSP TGET 
SAD (CHARACTER L#) 

JMP MAKEG 
JDA TSTORE 
JMP MAKEH 

JSP UGWORD 
JSP TDONE 
LAC POINT 

DAC TPOINT /EXCHANGE POINT AND TPOJNT 

LOAD POINT+1 
UNLOAD TPOINT+1 
JDA PULL 
POINT + 2 
POINT+1 
POINT 
JSP VGET 

JSP DLOOKI /LOOK UP IN TABLE 

JMP MAKES /NOT FOUND 

CLE 1 



/WHICH VARIETY OF MAKE 
/ONE LINE MAKE 
/GET THE NAME 

/make sure SOMETHING returned 



/SOMETHING EXTRA IN THE NAME 
/SAVE THE NAME 
/GET THE THING 



/SOMETHING EXTRA IN THE THING 



/IS THING IN A STEP 
/NO, SO OK 

/YES, SO COPY IT INTO STORAGE 
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MAKEF, 



MAKEE, 



SL 



LOAD 


SDRA 


JDA 


SGKORD 


LAW 


3 


ADD 


WRDCNT 


LOR 


TPOINT 


JDA 


NGWORD 


DZM 


TEMA 


law 


STM- 1 


dap 


sgetp 


jsp 


sgft 


JDA 


NGWORD 


IDX 


TEMA 


SAS 


WRDCNT 


JMP 


MAKEE 


LAC 


TPOINT+1 


JDA 


NGWORD 


LAC 


TPOINT+2 


JDA 

CLA 


NGWORD 


SZF 


1 


JDA 


NGWORD 


JSP 


UFWORD 


JSP 


UGWORD 


JMP 


NILL 



/HESET (OR SET ) VAEIABLE NAME AND THING 



/SAVE WORD COUNT 



/SAVE VALUE 

/PUT 0 AT END IF ON END OF TABLE 
/have already checked end 
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MAKEA, 


SJSP 


CALC 




JSP 


VALUEQ 




JMP 


makec 


MAKEB. 


STF 


1 




JSP 


LOOK 




SVTBL 




JMP 


makef 




CAL 


T0EHR3 


NGWORD. 


0 






dap 


NGWRDX 




lac 


GWORDP 




SAS 


GWORDP+3 




JMP 


NGWRDA 




JSP 


UGWORD 




LIO 


I GWORDP+2 




SNI 


I 




JMP 


NGWRDB 




LIO 


I GWORDP* 1 




JSP 


NEWITM 




lac 


I GWORDP* 1 




dac 


I BBPTR2 


NGWRDB, 


lac 


(JMP 0) 




JDA 


SGWORD 


NGWRDA. 


JSP 


USEDG 




IDX 


GWORDP 




LAC 


NGWORD 




DAC 


I GWORDP 


NGWRDX, 


JMP 


« 



«L 



/ONE LINE MAKE 

/MAKE SURE a value returned 



/NOT DEFINED YET 
/IS IT SYSTEM SYMBOL 

/NO-SO GO DEFINE IT 

/CAN'T REDEFINE A BUILT-IN NAME 

/STORE THRU GWORDP 
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COLON RANDOM 

LIO RANDA+1 
RCR 7 S 
XQB RANDA+1 
LIO RANDA 
DAC RANDA 
DIO RANDA+1 
SCR 9S 
SCR 8 S 
DIV ,+1 
10 , 

SPI 

CMI 

lai 

IOR (20) 

RAR 6S 
DIP RANDB+i 
LAW RANDB 
JMP CEMPTY+1 



COLON TIME 





DAC STS 
DAC ESA 
GTD 1 
STD 10 

LAC (400000) 
DAC POINT 


TDCOPY, 


LCH I ESA 
SAD (CHARACTER 
JMP TDCOPA 
JDA TSTORE 
JMP TDCOPY 


COLON DATE 

DAC STS 
DAC ESA 
GTD 1 
STD 20 
DZM POINT 
JMP TDCOPY 


TDCOPA, 


JSP UGWORD 
JSP TDONE 
JMP EVALQ 


TBLOCK, 


REPEAT 7,0 


RANDB., 

SL 


300000 



LAC RANDA 

/GENERATE A RANDOM DIGIT 



LAW TBLOCK //TIME/ 

/GET PRESENT TIME AND DATE 

/SET UP ONLY TIME 

/TIME IS ALWAYS A SENTENCE 

L#) 

LAW TBLOCK //DATE/ 

/DATE IS always A word 

007400 000000 
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COLON BEFORE? 

SJSP 2AHG 
LAW POINT 
JDA TSET 
JSP BEFORE 
UNLOAD TEMD 
LAW TPOINT 
JDA TSET 
JSP BEFORB 
SUB TEMD+1 
SPA 

JMP EMPTQA 
SZA 

JMP SENTQA 

lai 

SUB TEMD 
SPA 

JMP EMPTQA 
JMP SENTQA 



/COMPARE two TIME AND DATES 



/DECODE TIME AND DATE 



/DECODE FIRST TIME AND DATE 
/COMPARE DATES 

/TRUE 

/FALSE 

/dates the same, check times 



BEFORB, DAP BEFORX 
LAW TBLOCK 
DAC fsa 
DAC STS 
BEFORA, LAC STS 

SAD {JMP TBLOCK+7) 

CAL BEFERR 

JSP tget 

DCH I STS 

SAS (CHARACTER R#) 

JMP BEFORA 
JSP UGWORD 

DTM /DECODE TIME 

JMP BEFORC /MAYBE JUST DATE 

lia 

LCH I FSA 

SAD (CHARACTER L#) 

JMP BEFORF /JUST A TIME, SUPPLY TODAY'S DATE 

SZA /SKIP THE SPACE 

JMP BEFORC 
DDT 

JMP BEFORC 
BEFORD, DAC TEMA 
LCH I FSA 

SAS (CHARACTER L#) 

CAL BEFERR 
LAC TEMA 
JMP , 



BEFORX, 
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before. 


DIO TEMA 
GTD+1 
IIO TEMA 
JMP BEFORX 




BEFORC, 


CLI 

LAW TBLOCK 

dac fsa 


/midnight 




DDT 

cal beferr 

JMP BEFORD 


/JUST A DATE 


&L 
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COLON GO JSP GNS /GO TO LINE X 

SAS (700000 T0 1 
CAL GOERR1 
JSP GNS 

SAS (500000 LINE) 

CAL GOERR1 
LAC PROD 
SZA I 

cal GOERR2 

SJSP EVAL /GET LINE NUMBER 

JSP VALUEQ 
LAW POINT 

jda emptyq /MUST be word non-empty 

CAL LSTER3 

LAC POINT /MUST BE 6 CHARACTERS 

AND (700000) 

SAS (300000) 

CAL LSTEB3 
LAW POINT* 1 
DAC ESA 
DNM 

eAL LSTER3 
SPQ 

CAL LSTER3 

DAC SNUM 

LCH I FSA 

SAS (CHARACTER L#) 

CAL LSTER3 
LIO XDBA 
JSP FSTEP 
JMP .+2 

CAL ERERR2 /NO SUCH LINE 

JSP CLINE 

JSP UTWORD /RELEASE PRESENT STEP 

LOAD SDRA 
JDA STWORD 
JMP NILL 



WORD JMP T 8 
&L 



NEWSEG COMMANDS 1 
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COLON DIFF SJSP 2ARG 

LIO (600000 DIFF) /FOR ERROR 

CLL ,, U"CHL /trick sum into subtracting 

JMP DIFFA 

COLON SUM SJSP 2ARG 
CLL 

LIO (600000 SUM) 

DIFFA » LAW SUMD 

SUMM , DAP SUMMX /SUBRUOTINE FOR GREATER 

DIO TEMC /SO ERR CAN TELL SUM, DIFF * OR GREATER 

DZM TEME /COUNTS NEGATIVE ARGUMENTS 

LAC PDLCNT 

DAC SUM 1 /TO CLEAR PDL ON RETURN 

LAW POINT 
JDA TSET 

JSP SUMB /PUT SECOND ARG ON PDL 

DAC SUM1+1 /SAVE PDLCNT 

DAC SUM2 
CLL* , U ,, SZL"U"SCF 

IDX TEME /SECOND ARG COMPLEMENTED 

DIO SUM 1 + 2 /PDL DRA 

LAC PUSHP 

DAC SUM 1 +3 

LAC PiCGUNT 

DAC SUM 1 + 4 

LAC SUM 1 +5 /FREEZE BUFFER IN CORE 

TOR I SUM1+4 

DAC I SUM 1 +4 

LAW TPOINT 

JDA TSET 

JSP SUMB /PUT FIRST ARG ON PDL 

DAC SUM2* 1 
DIO SUM2+2 
LAC PUSHP . 

DAC SUM2+3 
LAC PLCOUNT 
DAC SUM2+4 
LAC SUM2+5 
IOR I SUM2+4 
DAC I SUM2+4 

JDA ACPUSH /PUSH A NEG NUMBER (400000) 

acpush /twice 

CLL i, U"SZL”U , 'SCF 

IDX TEME /FIRST ARG COMPLEMENTED 

STF 3 




♦ 
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SUMC # LAW SUM 1 

jda spull 
STF 2 
DAC TEMB 
LAW SUM 2 
JDA SPULL 
STF 5 
ADD TEMB 
SZF 1 

IDA”U”CLL"U"CML 
CLF 1 
SUB (10.) 

SMA 
STF 1 
SPA 

ADD (10.) 

JDA ACPUSH 
LAC ACPUSH 
SZL 

JMP SUMS 
SZF 3 
IDA 

SUMG # CLF 3 

CLL 

SAD (10.) 
CLA'’U'*STF 3 
JDA ACPUSH 
SZF 2 
SZF I 5 
JMP SUMC 
JSP ACPULL 
SZA 

CLL”U'*CML 
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SUMH , ADD TEME 

BAB IS 
SPA 

JSP ACPULL 

SUMMX# JMP , /SUM AND DIFP JUST CONTINUE 

SUMD, JSP ACPULL 

TEME 

SPA 

JMP SUEZ 
SZL I 
JrtP .+3 
CMA 

ADD (9.) 

SZA I 
JMP SUMD 
DAC TEMB 

LAC ( CHARACTER L-) 

SZL 

JDA TSTOBE 
LAC TEMB 

SUME, tor (20) 

BAR 6S 
JDA TSTOBE 
JSP ACPULL 

TEME 

SPA 

JMP SUMF 
SZL I 
JMP SUME 
CMA 

ADD (9.) 

JMP SUME 

&1 
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SUMF , LAC SUM2+4 

J D A RUNFRZ 
LAC (-200000) 

AND I SUM 1 + 4 
DAC I SUM 1 + 4 
LIO SUM 1 
JSP PDLCLR 
DZM POINT 
JSP TDONE 
JMP EVALQ 

SUMS, DAP sumbx 

JSP tget 

sad (character L» ) 

CMt /SET TO PUSH 9'S COMPLEMENT 

SAS (CHARACTER L-) 

SAD (CHARACTER L* ) 

JSP tget /skip sign if these 

CLI" U"SWP 
SZL 

LAW 9, 

JDA ACPUSH /PUSH 0 OR 9 FOR + OR - 

LAI 

SUMBA, RAL 6S 

XOR (20) 

SUB (10.) 

SMA 

CAL SUMERR /NOT A DIGIT 

ADD (10.) 

SZL I 
JMP ‘. + 3 
CM A 

ADD (9.) 

JDA ACPUSH /PUSH A DIGIT OR 9. DIGIT 

JSP tget 

SAS (CHARACTER L#) 

JMP SUMBA 
JSP UGWORD 
LAC PDLCNT 
LIO PUSHG 
SUMBX, JMP , 

8L 
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SPULL, 0 

DAP SPULLX 
LAC SPULL 
DAP SPITLLA 
XDX SPULL 
DAP SPULLB 
IDX SPULL 
DAP SPULLC 
IDX SPULL 
DAP SPULLD 
IDX SPULL 
DAP SPULLE 
IDA 

DAP SpULLG 
SPULLB, LAC . 

SPULLA, SAD , 

JMP SPULLH 
SUB (1) 

DAC I SPULLB 
IDX SPULLX 
LAW I 1 

SPULLD, ADD . 

DAC I SPULLD 
SPULLC, SAS . 

JMP SPULLX-2 
DAC TEMD 
SPULLG, LAC . 

CM A 

SPULLE, AND I , 

DAC I SPULLE 

LIO I TEMP 

JSP GETIT 
LAC BCOUNT 
DAC I SPULL 

LAC I BCOUNT 

TOR I SPULLG 

DAC I BCOUNT 

LAC BBPTR2 
DAC I SPULLC 
ADD (BLNG,4) 
DAC I SPULLD 

SPULLH, LAC I SPULLD 

DAC SPULL 
LAC I SPULL 

SPULLX, JMP . 

«L 



/PDL COUNT NOW AT 
/PDL COUNT TO STOP AT 

/CURRENT PTR INTO PDL 
/PTR TO END OF BUFFER 

/FRZ BIT 

/PTR INTO BCHK FOR FRZINS 
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SUMZ, LAC (CHARACTER L0) 

JDA TSTORE 
JMP SUMF 

SUH 1 , 0 

0 
0 
0 
0 

200000 
S U M 2 # 0 

0 
0 
0 
0 

400000 
(&L 



/RETURN 



/FREEZE BIT 
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MAX A * DAP MAXX 

CLL"U"CML 

JSP SUMM /SUBTRACT THE TWO ARGS 

CLF 1 

MAXD, JSP ACPULL /CHECK IF ANSWER IS ZERO 

TEME 

SPA 

JMP MAXC /ZERO 

SZL I 
JMP .+3 
CM A 

ADD (9.) 

SZA I 
JMP MAXD 

MAXE, LAC SUM2+4 

jda runfrz /free the stuff held by sum 

LAC (*200000) 

AND I SUM 1 + 4 
DAC I SUM1+4 
LIO SUM 1 
JSP PDLCLR 
MAXX , JMP . 

MAXC » STF 1 /MEANS ZERO 

JMP MAXE 

COLON MAXIMUM 

S JSP 2ARG 

LIO (600000 MAXIMUM) 

JSP maxa 

MAXB, SZL /LINK SAYS DlFF NEGATIVE 

JMP EVALO 
LAC TPOINT 
DAC POINT 
LAC TPOINT+1 
DAC POINT+I 
LAC TPOINT+2 
DAC POINT+2 
JMP EVALO 

COLON MINIMUM 

SJSP 2ARG 

LIO (600000 MINIMUM) 

JSP MAXA 
CML 

JMP MAXB 

COLON GREATQ 

SJSP 2ARG 

LIO (600000 GREATQ) 

JSP MAXA 
LAW TRUE 
SZF I 1 
S Z L 

law FALSE 
JMP CEMPTY+1 
&L 
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COLON LOCAL 


CLA /LOCAL COMMAND 




JDA ACPUSH 




LOCALC, 


JSP GNS 
SZA I 






CAL LOCEBR 


/LOCAL WHAT? 




SUSP CALC 


/evaluate next argument 




JSP VALUBQ 


/make sure arg returned something 




JDA PULL 


/GET BACK COUNT 




TEND 

JSP vget 


/set up variable name in standard form 




JSP LOOK 
SVTBL 
JMP , +2 


/IS IT A BUILT-IN name 




CAL TOERR3 


/YES # ERROR 




DZM TEMB 


/PREPARE to PUT ON PUSH-DOWN LIST 




LAW SYM-1 
DAP SGETP 


/backwards 


LOCALA, 


JSP sget 
JDA ACPUSH 
IDX TEMB 
SAS WBDCNT 






JMP LOCALA 


/SAVE WORD COUNT ON PUSH-DOWN ALSO 




JDA ACPUSH 




IDX TEMD 
JDA ACPUSH 
JSP GNS 
SZA I 


/COUNT NUMBER of VARIABLES 




JMP LOCALB 


/ALL DONE 




SAS (500000 1 
JMP LOCALC+1 
JMP LOCALC 


CAND) 


LOCALB, 


JDA PULL 

tbma 


/GET NUMBER OF VARIABLES 




LOAD VDRA 
JDA SGWOBD 
LAC (600000) 
I OH GWORDP+5 
DAC TEMF 


/GET VARIABLE DIRECTORY 




DZM TEMB 


/COUNT NUMBER OF VARIABLES OFF LIST 


8,1 


LAC TEMB 
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lqcald, sad tema 

JMP LOCALE 

J SP ACPULL /GET WORD COUNT 

DAC TEME 

CMA 

DAC TEMC 

LAC EMPTY+2 /RUT OUT EMPTY VALUE 
JD A VSTORE 
LAC EMPTY+1 
JDA VSTORE 

JSP ACPULL /PUT OUT NAME 

JDA VSTORE 
ISP TEMC 
JMP * «3 

LAW 3 /PUT OUT WORD COUNT 

ADD TEME 

IOR EMPTY 

JDA VSTORE 

IDX TEMB 

JMP LOCALD 

locale, jsp ugword 

JSP RGWORD /RELEASE SWORD AND SET VDR A 

DIO VDRA 
DAC VDRA+1 
JMP NHL 

COLON BOTH 

JSP GNS 

SAD (500000 CAND) 

JSP GNS 
JSP BOOLE 

JMP BOTHL /FIRST ARG FALSE SO RT FALSE 

BOTHA, SJSP CALC 
JSP BOOLE 

JMP BOTHL+2 /RETURN FALSE 
LAW TRUE 
JMP CE.MPTY + 1 
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COLON OS 

JSP GNS 

SAD (500000 CAND) 

JSP GNS 
JSP BOOLE 

JMP BOTHA /FIB ST ARG FALSE, RETURN SECOND ARG 

SJSP CALC /FIRST ARG TRUE. RETURN TRUE 

JSP BOOLE /JUST MAKE SURE ITS TRUE OR FALSE 

NOP 

LAW TRUE 
JMP CEMPTY+1 

BOTHL, SJSP CALC /JUST RETURN FALSE 

LAW false 
JMP CEMPTY+1 

BOOLE# DAP BOOLEX /RTN 1=TRUE, RTN 2=FALSE 

JSP vget 
JSP LOOK 
TFTABLE 

CAL BOLERR /NEITHER TRUE OR FALSE 

SPI I 

IDX BOOLEX 
BOOLEX, JMP , 

<SL 
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TRALL, JSP GNS /BURY , TRACE AND DIGUP ALL 

SAS (500000 PRCDS) 



CAL EREER5 
LODE PDRA 
JDA SGWORD 
TRALLA, JSP RGWORD 
UNLOAD TEMD 
JSP GWORD 
DAC TEME 
SZA I 

JMP TRALLC 
SUB (2) 

JDA NTHWD 
SZA 

JMP trallb 
JSP GWORD 
JMP TRALLA 



/ALL WHAT? 

/MAIN LOOP 

/ALL DONE 

/A DEFINED prcd, trace IT 
/continue to next 



TRALLB, 


LOAD 


TEMD 




JDA 


SGWORD 




lac 


TEME 


MAGIC, 


IOR 


BITZ 




JDA 


GWORDS 




SUB 


( 1 1 




JDA 


NTHWD 




JMP 


TRALLA 


TRALLC, 


JSP 


UGWORP 




JSP 


RESETT 




JMP 


COMRTN 


BITZ, 


400000 


ANBITZ, 


AND 


BITZ 


IBITZ » 


IOR 


BITZ 


BURALL, 


lac 


(200000) 




DAC 


BITZ 




JMP 


trall 


DIGALL, 


LAC 


(-200000) 




DAC 


BITZ 




lac 


ANBITZ 




DAC 


magic 




JMP 


TRALL 


RESETT, 


DAP 


RESETX 




lac 


( 400000) 




DAC 


BITZ 




lac 


IBITZ 




dac 


magic 


RESETX, 


'JMP 


• 



£L 



/mark as traced. 



/GETS CHANGED ACCORDING TO FUNCTION 



/fake trall into BURYING all 



/VOILA ! 



PAGE 71 
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COLON BUSY 
ABURY, JSP GNS 

SAD (500000 ALL) 

JMP BUBALL 
S AS (400000) 

CAL TOEHR1 /WHAT PROCEDURE 

JSP FPROD 
SZA X 

CAL EVER3 /UNDEFINED PROCEDURE 

LOAD TEMD 
JDA SGWORD 
LAC (200000) 

IOR TENS /SET BIT 1 

JDA GWORDS 

JSP UGWORD 

JSP GNS 

SZA I 

JMP NHL 

SAD (500000 CAND) 

JMP ABUHY 
JMP ABURY+1 

COLON TRACE ATRACE, JSP GNS 

SAD (500000 ALL) 

JMP TRALL 
SAS (400000) 

CAL TRCER1 /ONLY TRACE PROCEDURES 

JSP FPROD 
SZA X 

CAL EVER3 /X NEEDS A MEANING 

LOAD TEMD 

JDA SGWORD 

LAC TEME 

LIO PROD 

SMI i /IF COMMAND STORED DON’T MAKE ERROR 

JMP .+3 

SPA 

CAL TRCER3 /ALREADY TRACED 

IOR (400000) 

JDA GWORDS 
JSP UGWORD 
JSP GNS 
SZA I 
JMP NILL 

SAD (500000 CAND) 

JMP ATRACE 
JMP ATRACE+1 



&L 
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COLON DIGUP 
ADIGUP, JSP GNS 

SAD (500000 ALL) 

JMP DIGALL 
SAS (400000) 

CAL TOERR1 
JSP FPBOD 
SZA I 
CAL EVER3 
LAC IEME 
RAL IS 
SMA 

CAL DIGEE 1 
LOAD TEND 
JDA SGWORD 
LAC TEME 
AND (-200000) 

JDA GWORDS /CLEAR BIT 1 

JSP UQWORD 

JSP GNS 

SZA I 

JMP NILL 

SAD (500000 CAND) 

JMP ADIGUP 

j nv adigup+i 
SL 




' LOGO, 15 ' 



24 JULT 1969 2030:34 



PAGE 74 



COLON TTLINE LAW TTLINA+1 

Dag STS 
LAC 76 
SNM + 2 

LAW TTLXNA 
JMP CEMPTY+1 

TTLINA, 300000 000000 000000 



/SCANNER LINE NUMBER 



COLON PSWORD 

SJSP PSWRDG 



COLON LFILE 
LFILK, LIO FILDRA 
LAC (JMP) 
JDA SGWORD 
JSP GWORO 



/GET SENTENCE OF FILE NAMES 



LFILJ, 



LFILL, 



LFILA, 



LFILH, 



S Z A 

JMP LFILKX 
CLF 7 

LAW GWORDA 
DAP TGETF 
JSP GWORD 
SZA I 
JMP LFILF 
S ZF 2 
JDA ENTRB 
JSP tgft 
SAD (CHARACTER 
JMP LFILB 
JDA TSTORE 
JMP LFILA 



/compacter running 



/NONE AT ALL? 

/YES . RETURN /EMPTY/ 
/ENTRIES? 

/YES, CHECK ERASED OR LOCKED 
L#) 



LFILB, STF 3 

LAC (JMP) 

I OR GWORDP 
DAC GWORDP 
SZF I 2 
JSP GWORD 
JSP GWORD 
JSP GWORD 
LFILN, SZA I 

JMP LFILG 
SZF 2 
JDA ENTRB 
LFILM, cla 

JMP LFILH 



/NOT EMPTY 



/SKIP USER NUMBER 
/SKIP DRA 



/ALL DONE 
/ENTRIES? 

/YES, CHECK THINGS 




'LOGO, 15' 



24 JULY 1969 2030:34 



PAGE 74S1 



LFILG, 


LAC (400000) 
DAC POINT 
JSP tdone 
JSP UGWORD 
JMP EVALO 


/MARK AS SENTENCE 


LFILKX, 


JDA CHKBRK 
LAW 2 
DELAY 
JHP LFILK 




SL 
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LFILF, 


JSP 


UGWQRD 




JMP 


CEMPTY 


COLON ENTRIES 






clf 


7 




JSP 


vget 




law 


ENTRA 




DAP 


dlookx 


ENTRF, 


LIO 


fildra 




lac 


(JMP) 




JDA 


SG WORD 




JSP 


GWORD 




SZh 






JMP 


entre 




JMP 


DLOOKH 


ENTRA, 


JMP 


CEMPTY 




LIO 


USER 




law 


7777 




AND 


USER 




spi 


I 




SAD 


POINT+1 




STF 


1 




STF 


2 




LODE POINT+ 




JDA 


SGWQRD 




LAW 


tsym 




DAC 


FWORDP 




DZM 


FWORDP+ 




JMP 


LFILJ+1 


entre, 


law 


2 



DSL AY 





JSP 


chkbrk 




JMP 


entrf 


ENTRB, 


0 






dap 


entrd 




lac 


ENTRB 




SPA 






JMP 


ENTRC 




RAL 


IS 




SZF 


I 1 




SMA 




ENTRD , 


JMP 


• 




RAP 


IS 


ENTRC • 


JDA 


NTHWD 




SZF 


I 3 




JMP 


lfill 




JMP 


LFILN 



&L 



/ENTRIES OF ,, 
/SET UP FILE NAME 



/COMPACTER 

/YES 

/NO SUCH FILE 



/OK FOR PRIVATES 

/SAY TO CHECK ERASED AND PRIVATES 



/ERASED 

/OK, RETURN IT 
/SKIP IT 
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COLON ACNTNT 





LODE PDRA 

JDA sgword 

LAW GWORDA 
DAP TGFTF 
CLF 7 


//CONTENTS/ 


ACNTN A , 


JSP RGWORD 
UNLOAD SDR A 






JSP GWORD 
SZA I 


/wrdcnt 




JMP ACNTNG 
RAL IS 
SPA 


/ALL DONE 




JMP ACNTNB 
EAR IS 
SUB (21 
JDA NTHWD 


/HIDDEN, so SKIP IT 




SZA 


/DEFINED? 




JMP ACNTNC 


/YES, ADD IT TO LIST 


acntnf. 


JSP GWORD 


/NO, SKIP # OF ARGS 




JMP ACNTN A 


/GET NEXT ONE 


ACNTNC, 


JSP UGWORD 
LOAD SDR A 
JDA SGWORD 


/A REAL ONE 




JSP GWORD 
CLA 


/SKIP WRDCNT 




SZF 1 


/FIRST WORD? 




JDA TSTORE 


/NO, STORE A SPACE 




STF 1 


/mark as something stored 


ACNTND, 


JSP TGET 






sad (character 

JMP ACNTNE 
JDA TSTORE 
JMP ACNTND 


L#) 


ACNTNB , 


rar is 

SU3 (1) 

JDA NTHWD 
JMP ACNTN A 


/hidden, SO SKIP 


ACNTNE, 


LAC (JMP) 
XOR GWORDP 
DAC GWORDP 
JSP GWORD 
JMP ACNTNF 


/done with this name 


ACNTNG, 


JSP .UGWORD 


/ALL DONE 


SZF "I 1 


/WERE THERE ANY? 




JMP CEMPTY 


/NO 




LAC (400000) 
DAC POINT 
JSP tdone 
JMP EVALO 


/mark as sentence 






■N-E- W g EG COMMAWng— a - 




PAGE 



77 



COLON 


HORN 




SJSP EVAL 




LAW 


TURTH 






DAP 


TURTD 






JMP 


TURTE 




COLON 


LEFT 




SJSP EVAL 




LAW 


2677 






JMP 


• + 4 




COLON 


RIGHT 




SJSP EVAL 




LAW 


1077 






DAP 


TURN 






LAW 


TURN 






DAP 


TURTD 




TURTE 


— 3 -SJ-SR 


> niAi 




9 / mU kJt" 

( — LAC 


POINT 


/GET NUMBER 




AND 


(700000) 






SAS 


(300000 ) 


/ 6 CHARACTERS? 




CAL 


TURTER 


/NO. TOO LONG 




LAW 


POINT+1 






DAC 


FSA 






DNM 








CAL 


TURTER 






SPA 








CAL 


TURTER 






IDA 








CM A 








DAC 


TURNMA 






LCH 


I FSA 


/ANYTHING ELSE 




SAS 


(CHARACTER 


L#> 




CAL 


TURTER 





TURTA, ISP TURNMA 
‘twr i m i 7 - 
JMP COMkTN 



TURTD, 


LAW . 


/TEXT 




TOS 






JMP TURTA 





COLON 


FRONT 




SJSP 


EVAL 




LAW 


0177 








JMP 


. + 4 






COLON 


BACK 




SJSP 


EVAL 




LAW 


1677 








DAP 


TURTB 








LAW 


TURTB 








DAP 


TURTD 








JMP 


TURTE 







TURNMA, 0 

TURN, TURTB, 

777577 
TURTH, 773577 

WORD JMP T8 



/-# OF TIMES TO TURN 
770000 757775 

757775 777574 

757775 773577 

NEWSEG COMMANDS 2 



757400 
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COLON LIST 



LISTE, 

&L 







JSP GNS 


/LIST 


WHAT? 






CLF 


7 












sad 


(500000 


ALL) 










JMP 


LTALL 












SAD 


(500000 


CONTENTS) 










JMP 


LTCNT 












SAD 


( 500000 


FILE) 










JMP 


LSTF 


/LIST FILE 










SAD 


(500000 


LINE) 










JMP 


lista 


/LIST LINE 










SAD 


( 500000 


ENTRY ) 










JMP 


LSTENT 












SAD 


(700000 


TITLE) 


/LIST 


title 






JMP 


LSTTTL 












SAD 


(500000 


PRCDS) 


/LIST 


PROCEDURES ON FILE 


JMP 


LISTPR 












sad 


( 500000 


NAMES ) 


/LIST 


NAMES 


ON 


FILE 


JMP 


LISTNM 












SAD 


(500000 


ABBRS ) 


/LIST 


ABBRS 


ON 


FILE 


JMP 


LISTAB 












SAD 


(500000 


COMMENT) 











JMP LISICM 
AND (700000) 
SAS (600000) 
SAD (500000) 
JMP LISTB 
SAS (400000) 
CAL TOEBR1 
JSP PPROD 
LIO TEME 
BIL IS 

SPI 
ST? 2 
SZA I 
CAL EVER3 
JSP CLINE 
JSP sline 
JSP PPROD 
JSP sline 
JMP NHL 



/LIST MACHINE PROCEDURE 
/LIST WHAT 

/IS THIS PROCEDURE HIDDEN 

/YES, SO ONLY PRINT FIRST LINE 

/IS IT END OF LINE 

/PRINT IT 

/LEAVE 
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LISTA, 



LSTTTA » 



LISTAC, 



SJSP EVAL /EVALUATE NUMBER 

JSP GNS 
S 25 A I 

JMP .+4 /JUST THAT LINE 

SAS (500000 ON 1 
CAL LSTER9 
S T F 5 

LAC (700000) 

AND POINT 
SAS (300000) 

CAL LSTER4 
LAW POINT-M 

dac fsa 

DNM 

CAL LSTER3 
SPQ 

CAL LSTER3 
DAC SNUM 
LCH I FSA 
SAS (CHARACTER L#) 

CAL LSTER3 

LI O DDR A /MUST BE DEFINING A PROCEDURE 

' — — — -pi a f vn^- A 

/go search for step 

/FOUND 

/NO SUCH LINE FOUND 



/NO, JUST ONE LINE 



/LIST 



CAL LSTER2 
JSP FSTEP 
JMP .+2 
JMP LSTAB 
JD A SGWORD 
SZF I 5 
STF 1 
LAW nxll 
DAP PPRODX 
JMP PPRODF 



/only ON AFTER list 

/LIST FROM N ON 



/NOW KNOW THAT WORD SUFFICIENTLY SHORT 




LSTAB, SZF I 5 

CAL ERERR2 /NO, NO SUCH STEP 

JMP LISTAC /YES, SO CONTINUE ON 



LSTTTL , LIO DDRA 
SNI 

CAL LSTER2 
LOAD DNAME 
JD A SGWORD 
JSP G WORD 
DAC TEME 
JSP UGWORD 
DZM SNUM 
JMP LSTTTA 



/LIST TITLE 

/AREN’T DEFINING A PROCEDURE 
/LOOK UP TO SEE IF TRACED 

/NE6 MEANS TRACED 

/NOW LIST LINE 0 
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LISTB » LAW ftbl /machine procedure 

DAP LISTC /SEARCH TABLE FOR XT 

LISTC, LAC . 

SZA I 

CAL EVER2 /"- ISN'T A PROCEDURE.” 

SAD I textp 

JMP LISTD /FOUND IT 

IDX LISTC /NO FIND 

IDX LISTC 
JMP LISTC 
&L 
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LISTD * JSP SLINE /FOUND PROCEDURE 

LAW LTTXTA 

TOS /TYPE "TO” 

1DX LISTC 
LAW 7777 
AND I LISTC 

TQS /TYPE NAME 

LIO I LISTC /FOR 1 OR 2 ARGS? 

SPI 

JMP LISTDA /NO ARGS 

P-IL IS 

LAW LTTXTB /TYPE "/INPUT/" 

SPI 

LAW LTTXTD /TYPE "/FIRST INPUT/" 

TOS 

LAW LTTXTC 
S P I 

TQS /TYPE "AND /SECOND INPUT/" 

LISTDA, JSP SLINE 
JSP SLINE 
JMP COMRTN 

LTTXTA, TEXT .TO #. 

LTTXTB, TEXT , /INPUT/#, 

LTTXTC, TEXT . AND /SECOND INPUT/#. 

LTTXTD, TEXT , /FIRST INPUT/#, 

DEFINE FF N AME , ARG , ADDR/ A 

REMOTE [A, text /NAME#/ REPEAT 1IF P, EXPUNGE A] 

600000 ADDR 
REPEAT IIP VZ ARG- 1 , A 
REPEAT IIP VZ ARG, 2, 200000 A 
TERMINATE ff 



define fg name,addr/a 

REMOTE [A, TEXT /NAME#/ 

500000 ADDR 
400000 A 
TERMINATE fg 



REPEAT IIP P, EXPUNGE A] 
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FTBL , 



FF BOTH, 2, BOTH 
FF INITIALS* 1 , FINIT 
FF DATE-GOTTEN, 1,DATEGT 
FF SIZE»1,SlZE 
FF OWNER, 1 , OWNER 
FF DATE-SAVED, 1 ,DATESV 
FF ASK, 1, ASK 
FF BEFOREP,2,BF.FOREP 
FF BUTFIRST# 1 ,BUTF 
FF BUTLAST, 1,BUTL 
FF COUNT, 1 , COUNT 
FF DIFFERENCE, 2, DIFF 
FF ENTRIES, 1, ENTRIES 
FF FIRST, 1 .FIRST 
FF IS , 2 * is 
FF LAST, 1, LAST 
FF MAXIMUM, 2, MAXIMUM 
FF MINIMUM, 2, MINIMUM 
FF EITHER, 2, OR 
FF SENTENCE, 2, SENT 
FF SUM, 2, SUM 
FF THING, 1 .THING 
FF WORD,2,WRD 
FF WORD? , 1 .WORDQ 
FF SENTENCE?, 1.SENTQ 
FF ZEROP » 1 , ZBROQ 
FF EMPTYP , 1 , EMPTQ 
FF NUMBERP, 1 ,NUMQ 
FF GREATER?, 2, GREATQ 
FG RANDOM, RANDOM 
FG CLOCK, CLOCK 
FG TIME, TIMS 
FG DATE, DAT® 

FG REQUEST, REQUEST 
0 HERE 



SL 
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PLINE * 



PLINEK, 



SL 



DAP 


PLINEX 


DZM 


TEMC 


JSP 


GWORD 


SZA 


I 


JMP 


PLINEX 


IDX 


PLINEX 


JSP 


tline 


law 


PBUFF 


DAC 


STS 


DAC 


TEMA 


JSP 


GWORD 


SZA 


I 


JMP 


PLINET 


SNM+10 


LCH 


I tema 



/PRINT A LINEIASSUME GWORD IS SET 
/SKIP RELATIVE COUNT 



/MAKE SURE WE ARE A LEFT OF PAGE 
/TYPE OUT LINE NUMBER 



/FOR "TO" LINE 

/SET UP LINE NUMBER IN PBUFF 



SAD (CHARACTER L#) 
JMP PLINEJ 



tyo 

ID X CHARNO 
JMP PLINEK 
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PLINET, 


LAC TEME 








SMA 

JMP PLINEU 
LAW PPTXTB 


/IS 

/NO 


IT TRACED? 


PLINEU, 
PLINEJ , 


TOS 

LAW 1.0 
dac charno 

LAW 3 

JMP PLlNEA-1 

CLA 

Tyo 

IDX CHARNO 


/" (TRACED) M 




dac tema 


/SAVE POSITION FOR CONTINUATION 


PLINEA, 


jsp gwohd 

SZA I 


/GET NEXT SYMBOL 




JMP PLINEB 

sad (cthxng) 


/DONE WITH LINE 




JMP PLINEC 
SAD (CNAME) 


/THING FOR CALL 




JMP PLINED 
AND (700000) 
BAL 3S 
ADD .+1 

dap .+1 

JMP . 


/NAME FOR CALL 




JMP PLINEE 


/I 


comment 




JMP PLINEF 


/2 


constant 




JMP PLINEG 


/ 3 


variable 




JMP PLINEH 


/4 


PROCEDURE NAME 




NOP 


/5 


machinge procedure 




NOP 


/ 6 


machine procedure 




LODE LTBL 


n 


verb 


PLINEI, 


JDA SFWOP.D 
JSP FWORD 
SAD I GWORDP 


/LOOK UP IN TABLE 




JMP PLINEL 


/found IT 


PLINEV, 

&L 


JSP FWOED 
AND (7777) 
SUB (1) 

ADD FWORDP 
DAC FWORDP 
SUB FWORDP+3 
SPO 

JMP PLINEI 
DAC TEMD 
JSP FWORDA 
LAC TEMD 
JMP PLINEV 


/COUNT PAST IT 
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PLINEL, JSP FWORD /WORD COUNT 

LI A 

AND (7777) 

SAL IS 

ADD I FWORDP 

FIL IS 

SPI 

IDA 

BLL IS 

SPI 

IDA 

AND (7777) 

ADD CHARNO 
SUB (75.) 

SNA 

JSP PLINEM 
JNP PLINER 

PLINEM, DAP PLINMX /CONTINUTATION SUBROUTINE 

JSP sline 
DZM TENC 
PLINMA, CLA 
TYO 

IDX CHARNO 
IDX TENC 
SAS TEKA 
JNP PLINMA 
PLINMX, JNP . 

PLINES, JSP UFWORD 

PLINEN, CLA /TYPE SPACE AFTER EACH SYMBOL 

TYO 

IDX CHARNO 
SAD (72.) 

JSP PLINEM 
JMP PLINEA 
«L 
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PLTNEH , JSP GWORD 
DAC TEMD 
JSP GWORD 
LIO TEND 
JDA SFWOBD 
JSP FWORD 
AND (7777) 

DAC TEND 
SAL IS 
ADD TEND 
ADD CHARNO 

SUR (81.) /7 2 , PLUS 3 WORDS OF OVER TIMES 3 

SNA 

JSP plimem /continue to next line 

PLINER, JSP FWORD /TYPE OUT NAME 

LI A 

PLINEP, CLA 

SCL 6S 
EAR 6S 
SZA I 

JMP PLINER 

SAD (CHARACTER L#) 

JMP PLINES 
TYO 

SAS (770000) 

IDX CHARNO 
JMP PLINEP 

PLINEB, JSP TLINE /DONE 

PLINFX, JMP , 

PLINEC, LAW I 10 /SET CONTINUATION 

ADD TEH A /FOR TYPING THING 

DAC TEMA 
JSP PLINEM 

LAW 11 /CHANGE CONTINUATION 

ADD CHARNO 

DAC TEMA 

LAW PLTHING 

TOS 

LAW 7 

JMP PLINEQ 

PLTHING, TEXT , THING*. #. 
plname, TEXT , NAME! #. 

<$L 
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PLXNED, 

PLINEQ, 
PLINEG , 

PLINEF, 

PLINEE, 

<SL 



jsp plinem /name: 

law 10 

ADD CHARNO 

DAC TEMA 

DAC CHARNO 

LAW PLNAME 

TOS 

LAW 10 
ADD CHARNO 
DAC CHARNO 
JMP PLINEN 

LAC (FLEXO // ) /variable NAME 

jda ptext 

JMP PLINEN 

LAC (FLEXO ) 

JMP PLINEG+I 

LAC (FLEXO ( ) ) 

JMP PLINEG+I 
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PTEXT, 



PTEXTA, 



PTEXTE, 

PTEXTE+2 

PTEXTF, 

PTEXTC, 

PTEXTH, 



PTEXTN, 

&L 



0 /TOP SIX BITS FIRST CHAR, NEXT 6 END CHAR 

DAP PTEXTX 
LAC (200000) 

DAC POINT 

store gwohdp.point+1 

LAW POINT 
JDA TSET 
LAW PBUFF 
DAC FSA 
LAW I 7777 
AND PTEXT 
SZA 

DCH I FSA 
LAC CHARNO 
DAC TEMB 
JMP PTEXTE-1 

LAC FSA /MAIN LOOP 

SAS (LAC PBUFF+26.) 

SAD (JMP PBUFF+25.) 

JMP PTEXTF 
JSP TGET 

SAD (CHARACTER L#) 

JMP PTEXTB 
SZA I 

JMP PTEXTC 
sad (770000) 

JMP PTEXTD 
DCH I FSA 
IDX CHARNO 
SAS (72.) 

JMP PTEXTA 
JSP PLINEM 
LAC TEMB 
SAS TEMA 
JMP PTEXTI 

CLC /WORD TOO LONG 

DAC TEMC 

LAC (CHARACTER L#) 

DCH I FSA 
LAW PBUFF 
DAC FSA 
TOS 
CLA 

LIO TEMC 
SPI 

JMP PTEXTA 
TYO 

IDX CHARNO 
DAC TEMB 
JMP PTEXTB 
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PTEXTI, LAW 72, 

SUB TEMB 
ADD CHAHNO 
DAC CHAHNO 
LAC TEMA 
DAC TEMB 
J PIP PTEXTA 



PTEXTB, LCH (ADD PTEXTI 
SZA 

DCH I FSA 

LAC (CHARACTER L#) 

DCH I FSA 
LAW PBUFF 
TOS 

IDX CHARNO 
SAD (72.) 

JSP PLINEM 
LAC (600000) 

TOR GWORDP /RESET GWORDP FOR OTHER ROUTINES 

DAC GWORDP 
PTEXTX , JHP . 



PTEXTD, DCH I FSA /WARNING CHARACTERS 

JSP tgft 
SAD (020000) 

JHP PTEXTG 

SAD (110000) /TAB 

JMP PTEXTJ 

DCH I FSA 

SAS (46) 

SAD (47) 

J KP PTEXTE- 1 
JMP PTEXTA 



PTEXTG, LAC (CHARACTER L#) 
DCH FSA 
JMP PTEXTH 

SL 
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PTEXTJ, 

PTEXTL, 

PTEXTK, 

PTBXTM, 



LAC (CHARACTER L#) /TAB 

DCH FS A 

LAW PBUFF 

DAC FS A 

TOS 

LAW LTABS-1 

DAP PTEXTK /SEARCH FOR NEXT TAB STOP 

IDX PTEXTK 

SAD (LAC ELTABS+1) 

JMP PTEXTE+2 /OFF END OF LINE, IMPOSSIBLE TO 
LAC , 

SUB CHARNO 
SPQ 

JMP PTEXTL 

CLA 

tyo 

IDX CHARNO 
SAS I PTEXTK 
PTEXTM 
JMP PTEXTN 



GET HERE 



LTABS, 9, 

18 . 
27 , 
36 , 
45 . 
54 . 
63 . 

ELTABS, 72 , 



PBUFF, REPEAT 27, ,0 
&L 
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PPROD, DAP PPRODX /TYPE PROCEDURE 

LIO I GWOBDP 

DIO PPDBA /FOR LATER COMPARISON 

JSP UGWORD 
LODE PPDRA 
JDA SGWOBD 

JSP GWORD /ARGLIST BEL COUNT 

SUB (1) 

JDA NTHWD /SKIP OVER ARGLIST 

PPRQDF, JSP PLINE /TYPE OUT A LINE 

JMP PPBODA 
SZF 1 

JMP PPRODX- 1 /IF JUST LISTING FIRST LINES 
SZF 2 

JMP PPRODX-2 /HIDDEN SO JUST FIRST LINE 
JMP PPBODF 

PPROD A , LAC DDRA 
SAD PPDBA 

JMP PPRODX- 1 /IF DEFINING PROCEDURE LEAVE OFF END 
LAW PPTXTA 

TQS 

JSP sline 

PPRODX- 1 , JSP UGWORD 
PPRODX, JMP . 

PPTXTA, TEXT .END#. 

PPTXT3, TEXT , (TRACED)#. 

PPDRA, 0 /DBA OF PROCEDURE BEING LISTED 



LTALL, JSP GNS /LIST AIL 

5ZA I 

JMP LTALLA 

SAD (500000 FILES) 

JMP LTALF 

SAD (500000 PRCDS) 

JMP LTALP 

SAD (500000 NAMES) 

JMP LTNAMJ-1 

SAS (500000 ABBRS) 

CAL ERERR5 /ALL WHAT? 

JSP CLINE 
SL 
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COLON LTALB6 




JSP SLINE 




LODE 


! ADRA 






DIO 


sdra 






D AC 


SDRA+1 






LTALA, JDA 


SGWORD 






law 


6W0RDA 






dap 


TGETF 






LAW 


10 






dac 


TEMA 






DZW 


TEMC 






JSP 


GWORD 


/REL PTR 




SZA 


I 






JMP 


LTALAD 


/ALL DONE 




bal 


2S 






SPA 








JMP 


ltalab 


/HOARDED so DON'T TYPE 




JSP 


GWORD 






SZA 


I 






JMP 


ltalab 


/THIS ONE ERASED 




law 


I 1 






add 


GWQRDP 






DAC 


GWORDP 






lac 


(CHARACTER 


MS ) 




JDA 


PTEXT 






lac 


(JMP) 






TOR 


GWORDP 






dac 


GWORDP 






JSP 


LTALAC 


/SPACE AFTER COLON 




JSP 


GWORD 






dac 


POINT+1 






JSP 


GWORD 






IDC 








IDC 








SUB 


(D 






DAC 


POINT+2 


/THE POINTER NEEDS BACKING UP 1 




lac 


( 200000) 






dac 


POINT 






JSP 


RGWORD 






DIO 


sdra 






dac 


SDRA+1 






JSP 


UGWORD 






law 


POINT 






JDA 


TSET 






CLA 








JDA 


PTEXT 






JSP 


UGWORD 






JSP 


tline 






LOAD SDRA 






JMP 


LT ALA 
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LTALAB , 


LOAD SDH A 
JDA SGWORD 
JSP GWORD 
SUB ( 1 ) 

JDA NTH WD 
JSP RGWORD 
DIO SDRA 

dac sdra+i 

JMP LTALA+1 




LT ALP , 


JSP CLINE 
LODE PDRA 
JDA SGWORD 


/LIST ALL PROCEDURES 


LTALPA, 


JSP RGWORD 
DIO SDRA 

dac sdra+i 
JSP GWORD 
CLP 2 






DAC TEME 
AND (7777) 
SZA I 


/FOR HIDE AND TRACE 




JMP LTALPC 
SUB (2) 

JDA NTHWD 
SZA 

JMP LTALPB 


/ALL DONE 


LTALPD, 


JSP GWORD 
JMP LTALPA 


/GO TO NEXT 


LTALPB, 


LAC TEME 
HAL IS 
SPA 






JMP LTALPD 
SZF I 1 
JSP sline 
JSP PPROD 
LOAD SDRA 
JD'A SGWORD 
JSP GWORD 
AND (7777) 
SUB (1) 

JDA NTHWD 
JMP LTALPA 


/SKIP IT, HIDDEN 


LTALPC, 

SL 


JSP sline 
JSP UGWORD 
JMP NILL 
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LTALAC, 



LALACX, 
LTCNT , 



LTCNTA, 

LTALAD, 



LTALLA, 



LSTENT, 

HALF, 

LSTF , 

LTNAMJ- 1 

LTNAMJ, 

LISTPR, 

LISTNM, 

LISTCM, 

LISTAB, 

WORD JMP 
SL 



dap 


LALACX 


CLA 




TYO 




IDX 


CHARNO 


SUB 


TEMA 


SPA 




JMP 


ltalac+i 


SAD 


(64. ) 


JSP 


PLINEM 


JMP 


■ 


STF 


1 


JSP 


GNS 


SZA 


I 


JMP 


LTCNTA 


SJMP GTCNT 


JSP 


sline 


JMP 


ltalp+i 


JSP 


UGWORD 


JMP 


LISTE 


JDA 


PUSH 



(LTALB6) 
(LTHAKS) 
JMP LTALP+1 



/LIST CONTENTS, FLG«-ONLY FIRST LINES PRINTED 

/file name? 

/YES, SO FIND THE FILE 

/LIST ALL PROCEDURES, 1ST LINE ONLY 



SJMP LISFLE 
SJMP GLISTA 
SJMP GLISTF 
JSP CLINE 
SJMP LTNAMS 
SJMP LISPRO 
SJMP LISNAM 
SJMP LISCOM 
SJMP LISABB 



/LIST ENTRY . , 
/LIST ALL FILES 
/LIST FILE 



/LIST FILE STUFF 



T 8 



NEWSEG LIST 
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/FLG 1-COMMAND 


FILE; FLG 2*NO COMMENT 


COLON SAVE 






JSP 


GNS 


/MAKE SURE FILE AND ENTRY NAMES LEGAL 


SAS 


( 400000 ) 




CAL 


saveri 




JSP 


tword 




DAC 


TEPID 




JSP 


TWOBD 




DAC 


TEMD+1 




JSP 


GNS 




SAS 


(400000) 




CAL 


saveri 




JSP 


twobd 




JDA 


ACPUSH 




JSP 


TWOBD 




JDA 


ACPUSH 




TEMD 


/SAVE THE POINTER FOR LATER 


TEMD+1 




LOAD 


i TEMD 


/NO, IS THIS HIS FILE 


JDA 


sgword 


/SET UP FILENAME 


LAW 


. +3 




dap 


SAVGTX 




JMP 


savgta 




SAVEP, JSP 


flputd 


/GET FILE DIRECTORY 


SZA 




/IS COMPACTER RUNNING HERE? 


JMP 


SAVWAT 


/YES, WAIT A BIT 


law 


• +3 




dap 


DLOOKX 




JMP 


DLOOKH 


/FIND FILE 


JMP 


SAVEJ 


/DOESN'T EXIST SO OK TO SAVE 


LAC 


POINT+1 


/EXISTS. GET OWNER'S # 


SZA 


I 


/IS THERE AN OWNER? 


JMP 


SAVEJ 


/NO. SO OK TO SAVE 


lac 


USER 




SPA 






JMP 


SAVEJ 




AND 


(7777) 




SAS 


POINT+1 


/USER'S FILE? 


CAL 


USBERR 


/NO 


*L 
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SAVEJ# 



SAVTB# 






store textp#temd /will we have to eval? 

J3P GNS /ANYTHING THERE? 



SZ A 

JMP SAVTA 
JSP UTWORD 
LOAD TEMD 
JDA STWORD 
CLF 7 
JSP TWOSD 
AND (700000) 



/YES# EVAL AND SAVE 
/NO, SAVE EVERYTHING 
/RESET TWORD 



SZA I 
STF 2 
SZA 

SAD (100000) 
JMP .+2 
cal diserr 

LAC I TEXTP 
JDA CHWSD 
LAW 1 

DAC SVSIZE 
LAW FLSGT 
SGIFL+10 
DIO FLORG 
LAC (JMP-1) 

JDA SETUP 
400000 SSBASE 
DZM I BBPTRl 
LAW SAVFXA 
DAP SAVFXX 
LAW 10 
JDA FLWDS 
GTD + 1 
JDA FLWDS 
SWP 

JDA FLWDS 
SWP 

JDA FLWDS 
SWP 

JDA FLWDS 
LAW 14 
PEEK 

JDA FLWDS 
LAW 7777 
AND USER 
JDA FLWDS 
CLA 

JDA FLWDS 
DZM TEME 
SZF I 2 
JMP SAVFE 
JMP SAVFNA 



/NO COMMENT 

/SOMETHING, BETTER BE COMMENT 

/GET WRDCNT OF COMMENT 

/SIZE OF ENTRY 

/WRITE EMPTY HEM FOR ENTRY 
/DBA OF ENTRY 



/EXPUNGE ITEMS ON IOPERR 
/NUMBER OF OVERHEAD WORDS 
/SAVE TIME AND DATE OF LAST GET 

/AND OF SAVE 

/GET INITIALS 
/INITIALS 

/SAVE ROOM FOR SIZE 
/STORE COMMENT 
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SAVTA, 


SJSP 


CALC 


/evaluate 




CLF 


7 






5TF 


1 


/saving text, not everything 




JMP 


savtb 


/go back and do comment 


SAVTC, 


CLA 




/NO NAMES 




JDA 


flwds 






JSP 


FLWDS+1 


/AND NO ABBES 




JSP 


FLWDS+1 


/IDX FLWDP 




law 


POINT 






JDA 


TSET 


/text for saving 


SAVTD, 


JSP 


tget 






SAD 


(CHARACTER 


L#) 




JMP 


savte 


/ALL SAVED 




sad 


(760000) 


/crlf serves as eom 




lac 


{ character 


l#) /convert it 




JDA 


dchfle 






JMP 


savtd 




SAVTE, 


JDA 


dchfle 


/save the eom 




JSP 


ugword 






JMP 


SAVEU 


/terminate file 


SAVFE, 


JSP 


TWORD 


/SAVE COMMENT 




JDA 


FLWDS 




SAVFN, 


IDX 


TEME 






SAS 


WRDCNT 






JMP 


SAVFE 






law 


I 1 






ADO 


SSBASE 






DAC 


SSBASE 






LCH 


I SSBASE 






SAS 


(CHARACTER 


L#) /FIND THE ALT MODE 




JMP 


,-2 






CLA 




/GET RID OF IT 




DCH 


SSBASE 
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SAVFNA , LAW GWORDP /USE THAT AND BEGINNING OF FWORDP AS 

DAC STS / , . . 7 WORD BUFFER FOR TIME AND DATE 

gtd+i 

STD 

Law GWORDP 

DAC STS 

LCH I STS 

JDA DCHFLE 

SAS (CHARACTER R# ) 

JMP .-3 

JSP FLWDM /IOB (JMP) AND SSBASl 

SZF 1 

JMP SAVTC /SAVE TEXT INSTEAD OF EVERYTHING 

LAC (IDX GWORDP) 

DAC GWORDD /SET UP GWORD TO GET VARIABLE NAMES 

LIO GVDRA 

LAC (JMP BLNG-20) /GLOBAL NAMES 

JDA SGWORD 
SAVFF, JSP RG WORD 

DAC SDRA+1 
DIO SDR A 

SAVEC, JSP GWORD 

DIP POINT 
AND (7777) 

SZ A I 
JMP SAVED 
SUB (2) 

JDA NTHWD 

DAC POINT+1 _ 

JSP GWORD ; y A po//' 1 ' t 

___ DAC POI NT + 2 _ __ .... fl ' . r r 4 ooO — 

LAW POINT 

jda emptyq rr 

JMP SAVFF 
LAC (NOP) 

DAC GWORDD 
LAW POINT 
JDA TSET 



8L 
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SAVEB, 



SAVED, 



SAVEF, 

SL 



JSP tget 
jda dchfle 

S AS (CHARACTER R#) 

JMP SAVEB 
JSP UGWORD 

JSP FLWDM /IOB (JHP) AND SSBASE 

LAC (IDX GWORDP) 

DAC GWOBDD 
LOAD SDBA 
JDA SGWORD 
JSP GWORD 
AND (7777) 

SUB (2) 

LIO I GWORDP 
S P I 

IQR (400000) /MARK SENTENCES (OTHERWISE CANT RECOG, 

JDA FLWDS 

JDA SAVEA 

JSP GWORD 

JSP GWORD 

JMP SAVFF 

JDA FLWDS 

JSP UGWORD /MOW SAVE THE ABBRS 

LAC (NOP) 

DAC GWORDD 
LAC (JMP-1) 

LIO ADRA 
JDA SG WORD 
JSP GWORD 



1 WORD S, 
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SAVEF+1, DIP TEME /BIT 2»1 MEANS DON’T SAVE 

AND (7777) 

DAC TEMD 

SZA I /ANY MORE? 

JMP SAVEG /NOPE 

JSP GWORD 

SZA 1 

JMP SAVFH 

LAC TEME 

HAL 2S /BIT 2 = FRQTZ 

SPA 

JMP SAVFH /PRETENT ERASED AND DON'T SAVE 

law I 2 

ADD TEMD 

JDA FLWDS 

SUB (1) 

lia 

lac I GWORDP 
JDA FLWDS 

lai 

JDA SAVEA 
JSP GWORD 
DAC point+i 
JSP GWORD 
DAC POINT+2 
LAC (200000) 

DAC POINT 
JSP RGWORD 
UNLOAD SDRA 
JSP UGWORD 
LAW POINT 
JDA TSET 
LCH GWORDP 
JMP .+2 

SAVEE, JSP TGET 

JDA DCHFLE /NOW SAVING THE VALUE OF THE ABBR 

SAS (CHARACTER R#) 

JMP SAVEE 
JSP UGWORD 
JSP FLWDM 
LOAD SDRA 
JMP SAVEF-1 

SAVFH, LAC TEMD 

SUB ( 1 ) 

JDA NTHWD 
JMP SAVEF+1 
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SAVEG, JDA FLWDS 
JSP UGWORD 
LIO PDR A 
LAC (JMP-1) 

SAVEH-1, JDA SGWORD 
SAVEH, JSP GWORD 
DAC TEMC 
AND (7777) 

SZA I 
JMP SAVEU 
SUB (3) 

JDA NTHWD 
JSP gwohd 
SZA 

JMP SAVE! 

SAVEZ, JSP G WORD 

JMP SAVEH 

SAVEI, DAC TEMA 

LAC TEMC /CHECK IP HOARDED 

RAL 2S 

SPA 

JMP 5AVEZ /HOARDED SO SKIP IT 

JSP GWORD 

JSP RGWORD 

UNLOAD SVDRA 

JSP UGWORD 

LODE TEMA 

JDA SGWORD 

JSP GWORD 

JDA NTHWD 

JSP GWORD /0 STEP 

JSP GWORD /TO 

LAW SAVES 
DAP FLINEX 
LAC (772100) 

JDA DCHFLE /SPECIAL TO FOR INPUT 

JDA DCHFLE 

LAC (CHARACTER LB) /TO GO IN IF HIDDEN 

LIO TEMC 
EIL 15 
SPI 

JDA DCHFLE /HIDDEN SO FILE "S*'BTO 

LAC (FLEXO TO#) 

JDA DCHFLE /IF NOT HIDDEN "S”TO 

JDA DCHFLE 
JMP FLINEJ 
«L 



/NOW FOR THE PROCEDURES 



/TO CHECK FOR HIDDEN 
/IN CASE TRACE 

/ALL DONE WITH PROCEDURES NOW 



/IS PROCEDURE DEFINED 
/YES, FILE IT 

/NO, SKIP NUMBER OF ARGUMENTS 
/AND GO TO NEXT 
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FLINE, DAP FLINEX /FILE A LINE 

JSP GWORD /SKIP RELATIVE COUNT 

SZA I 

FLINEX, JMP . 

XDX FLINEX 

LAW POINT+1 /TWO WORD BUFFER 

DAC STS 
DAC TEM A 

JSP GWORD /FOR STEP NUMBER 

SNM+10 

FLINEK, LCH I TEMA 

SAD (CHARACTER L#) 

JMP FLINEJ 
JDA DCHFLE 
JMP FLINEK 

FLINES, JSP UFWORD 
FLINEJ, CLA 

JDA DCHFLE 

JSP GWORD /GET NEXT ON LINE 

S Z A I 

JMP FLINEX /NO MORE 

SAD (CTHING5 /HANDLE THREE LINE CALL PROPERLY 

JMP FLINET 
SAD (CNAME) 

JMP FLINEQ 
AND (700000) 

RAL 3S /what type OF thing IS IT 

ADD ,+1 
DAP .+1 
JMP . 

JMP FLINEE /IS COMMENT 

JMP FLINEF / 2 : CONSTANT 

JMP flineg /3: VARIABLE 

JMP FUNEH /ttt PROCEDURE NAME 

NOP /5: MACHINE PROCEDURE 

NOP /6: MACHINE PROCEDURE 

LODE LTBL /I l VERB 

JDA SFWORD /GET LIST TABLE 

FLINEI , JSP FWQRD 

SAD I GWORDP 

JMP flinel /found IT 

JSP FWORD /COUNT PAST IT 

AND (7777) 

SUB (1) 

FLINEV, ADD FWORDP 
DAC FWORDP 
SUB FWOHDP+3 
SPQ 

JMP FLINEI 
DAC TEMD 
JSP F WORD A 
LAC TEMD 
JMP FLINEV 
SL 
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FLINEQ, LAC (FLEXO #"Y") 

JHP , +2 

FLINET, LAC (FLEXO #"Z") 

JDA DCHFLE 
JDA DCHFLE 
JilP FLlNEJ+1 

FLINEL, JSP FWORD /WORD COUNT 

JflP FLINEB /AND WHITE IT OUT 

SL 
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FLINEH, 

FLINER, 

FLINEP, 

FLINED, 

FLINEG, 

FLINEF, 
FLINEE, 
FTEXT , 

FTEXT A , 

FTEXTB, 

FTEXTX, 

AL 



JSP GWORD /PROCEDURE NAME 

DAC TEMD 

JSP GWORD 

LIO TEMD 

JDA SFWORD 

JSP FWQRD /IGNORE RELATIVE COUNT 

JSP FWORD 
lxa 
CL A 

SCL 6S 
RAR 6 S 
SZA I 

J HP FLINER 

SAD (CHARACTER L#) 

JMP FLINES 
JDA DCHFLE 
JMP FLINEP 
LAC (CHARACTER L#) 

JMP FLINEJ+1 

lac (flexo // ) 

JDA FTEXT 
JMP FLINEJ 

LAC (FLEXO ,,M ) 

JMP FLINEG+1 

LAC (FLEXO () ) 

JMP FLINEG+1 

0 

DAP FTEXTX 
LAC (200000) 

DAC POINT 

store gwordp, poiht+i 

LAW POINT 
JDA TSET 
LAC FTEXT 
JDA DCHFLE 
DAC FTEXT 
JSP tget 

SAD (CHARACTER l#) 

JMP FTEXTB 
JDA DCHFLE 
JMP FTEXT A 

LAC FTEXT 
JDA DCHFLE 
LAC (600000) 

103 GWORDP 
DAC GWORDP 
JMP . 
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SAVET, LAC (772100) /SPECIAL END FOR INPUT 
JDA DCHFLE 
JDA DCHFLE 
LAC (FLEXO END) 

JDA DCHFLE 
JDA DCHFLE 
JDA DCHFLE 
LAC (CHARACTER L#) 

JDA DCHFLE 
JSP UGWORD 
LOAD SVDRA 
JMP SAVEH-1 

SAVEU, LAC (772174) /DONE SIGNAL 
JDA DCHFLE 
JDA DCHFLE 
JDA DCHFLE 

JSP FLPUTB /WRITE OUT ITEM REFERENCED BY FLWD 

JSP UGWORD 
LIO FLORG 

JSP GETIT /GET FIRST ITEM OF ENTRY 

LAW 7 

ADD BBPTR2 

DAP , +2 /POINT TO SIZE WORD 

LAC SVSIZE 
DAC , 

LIO FLORG 
LAC BBPT'R 
WAI + 2 

/NOW REWRITE THE DIRECTORIES, REWRITE ERRORS GENERALLY MEAN 
/RETURN INTO HERE TO TRY AGAIN. 

JSP SAVGET /LIKE vget 

LAW SAVEY 

DAP SAVFXX /SET UP TO RESTART HERE 

SAVEY » JSP FLPUTD /GET THE DIRECTORY 

SZA /THIS DIRECTORY COMPACTING? 

JMP SAVEW /YES, WAIT THEN START AGAIN AT SAVEY 

LAW SAVFY 
DAP DLOOKX 

JMP DLOOKH /FIND THIS FILE 

SAVFY, JMP FLPUT /NO SUCH FILE, CREATE IT 

SAVFY+1, LIO PGINT+2 /DRA OF ENTRY DIR FOR THIS FILE 

DIO TEMA 

JSP SAVGET /SET UP ENTRY NAME 

LAW SAVFW 

dap savfxx /SET new restart addr 
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SAVFW, 



LIO TEMA 
STF 6 
JSP DLOOK 
JMP ENPUT 
LOAD SDR A 
JDA SGWOHD 
JSP GWORD 
IOR (400000) 
DAC I GWOHDP 
LAW I 3 
A0D GWORDP+5 
LIO I GWORDP+1 



/ONLY ONE INFO WORD IN ENTRY DIR 

/NO SUCH ENTRY, CREATE IT 
/FOUND IT 
/GIT RELPTR 

/TO MARK IT ERASED 

/AND REWRITE ITEM 



waifl+i 
JMP SAVFX 
LAW I 1 

ADD DLOOKX /RESET DLOOK RETURN 

DAP DLOOKX 
LAC (400000) 

IOR I GWORDP+4 /REFREEZE BUFFER 
DAC I GWORDP+4 
LAC I GWORDP 
STF 6 

JMP DLOQKB+ 1 /CONTINUE TO END OF DIRECTORY 



/PUT IN NEW ENTRY 
ENPUT, JSP FLPUTC 
LAW 2 

ADD WRDCNT 
SZF 1 

IOR (40000) 
JDA FLWDS 
JSP FLPUTA 
LAC FLORG 
JDA FLWDS 
CLA 

JDA FLWDS 
JSP FLPUTB 
SZF I 2 
JMP COMRTN 
JMP NILL 



/SET UP FLWDS 



/COMMAND FILE? 

/YES 

/SAVE WRDCNT 

/SAVE WRDCNT NUMBER OF WORDS 

/save dra OF new entry 



/marks end of directory 

/WRITE OUT ITEM 
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/ADD A NEW PILE TO THE DIRECTORY 
/AND WRITE AN EMPTY ENTRY DIRECTORY 

FLPUT, JSP FLPUTC /AIM FLWDS INTO END OF DIRECTORY 

LAW 3 

ADD WRDCNT 

JDA FLWDS /SAVE WRDCNT 

JSP FLPUTA /SAVE WRDCNT NUMBER OF WORDS 

LAW 7777 
AND USER 

JDA FLWDS /SAVE USER'S NO 

LAW FLSGT 

SGIFL+10 /write a zero item for entry directory 

DIO POINT+2 /WHERE DLOOK WOULD HAVE PUT IT 

lax 

JDA FLWDS 
C L A 

JDA FLWDS /MARK END 

JSP FLPUTB /WRITE IT OUT 

JMP SAVFY+l 
<5L 
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FLPUTA, DAP FLPUTX /SAVE WRDCNT NUMBER OF WORDS 

DZM TEMB 
JSP sget 
JDA FLWDS 
IDX TEMB 
SAS WRDCNT 
JMP FLPUTA+2 
FLPUTX, JMP . 

savget, dap savgtx /like vget except IT WORKS 

JSP ACPULL 
TEMB 

LIO TEMB 
JDA SGWORD 
SAVGTA, LAW GWORDA 
dap TGETF 
JSP FSET 

JSP G WORD /SKIP REL PTR 

JSP TGBT 

JDA FSTORE 

SAS (CHARACTER R#) 

JMP .-3 
JSP UFWORD 
JSP UGWORD 
SAVGTX, JMP . 

FLPUTB, Dap flputy /write item ADDR By flwd 

law i 3 

ADD SSBASE+5 
LIO I SSBASE+1 

waifl+i 

JMP SAVFX 
DZM I SSBASS-M 
DZM I SSBASE+4 
FLPUTY, JMP . 

FLPUTC, PAP FLPUTZ /SETUP TO FIND ENTRY OR FILE IN DIRECTORY 

LOAD SDR A 
JDA SETUP 
400000 SSBASE 
LAW SYM-1 
DAP SGETP 
JMP . 



FLPUTZ, 
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FLPUTD, 


DAP FLPUTW 
LIO FIlDRA 
LAC (JMP) 
JDA SGWORD 
JSP GWOBD 




FLPUTW , 


JMP , 




SAVFX, 


LAW 2000 


/ioperr. WAS it rewrite number? 


SAVFXX, 


SAS ESCODE 
JMP SAVFXA 
JMP , 


/NO. ERASE ENTRY, THEN QUIT 
/YES. DISPATCH TO PROPER RESTART 


SAVFX A , 


LIO FL 08 G 
JSP GETIT 
LAC BBPTR 


/EXPUNGE STUFF JUST WRITTEN 


SAVFXB, 


raifl 

eaifl 

LIO I 8BPTR1 
SMI I 

JMP SAVFXB 
PZM I BCOUNT 
DZM I BORA 
cal ioperr 




SL 
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SAVEA, 0 

DAP SAVEAX /FILE SAVEA-1 WORDS 

LAW 7777 
AND SAVEA 
DAC SAVEA 
DZM TEMD 
SAVBAB. IDX TEMD 
SAD SAVEA 
SAVEAX, JMP . 

JSP GWORD 
JDA FLWDS 
JMP SAVEAB 

FLWD , dap FLWDX /GET A WORD FROM FILE, LIKE GWORD 

LAC SSBASE 
SAD SSBASE+3 
JSP FLWDA 
IDX SSBASE 
LAC I SSBASE 
FLWDX, JMP , 

FLWDA, DAP FLWDB 

DIO DRUMI /SAVE THE 10 

LIO I SSBASE+2 
SNI I 
JMP FLWDF 

IDX SVSIZE /SIZE OF ENTRY 

LAW FLSGT 

SGIFL+10 /WRITE A ZERO ITEM 

law I 3 

ADD 5SBASE+5 

DIO I SSBASE+2 

LIO I SSBASE+1 

waifl-m 

JMP SAVFX 
LIO I SSBASE+2 
DZM I SSBASE+2 
IDA 

DAP . + 1 

DZM , /RESET REWRITE NUMBER TO 0 

FLWDG, DIO I SSB ASS* 1 
LAC (JMP-1) 

ADD SSBASE+5 
DAC SSBASE 
LIO DRUM 
JMP « 



FLW0B, 
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FLWDF, LAW I 3 

ADO SSBASE+5 

3AIFL 

JMP FLWDG 

FLWDS » 0 

DAP FLVDSX 
JSP FLWD 
LAC FLWDS 
DAC I SSBASS 
FLWDSX, JMP , 

SL 
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DCHFLE, 


0 

DAP DCHFLX 
LAC SS8A5E 
SAD SSBASE+3 
JSP flwda 
LAC DCHFLE 
DCH I SSBASE 




DCHFLX, 


JMP . 




FLWDM , 


DAP FLWDMX 
LAC (JMP) 
JOB SSBASE 
DAC SSBASE 




FLWDMX, 


JMP , 




FLSGT, 


040000+BASE 

1 

050000 

97. 

-0 


/SGTBL FOB WRITING EMPTY FILE ITEMS 


SAVES, 


LAC {CHARACTER 
JDA DCHFLE 
JSP FL1NE 
JMP SAVBT 
JMP SAVES 


L #) 


&L 
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SAVEW, 


LAW 2 
DELAY 
JMP savey 


/DELAY 2 SECONDS 
/TRY AGAIN 


FOR FILE COMPACTING 


SAVWAT, 


LAW 2 
DELAY 

JSP CHKBRK 
JMP SAVEP 


/WATT A BIT 




FLORG, 

SVSIZE, 

SVDRA, 


0 

0 

REPEAT 2,0 


/DBA OF WRITTEN 
/SIZE OF ENTRY 
/TEM STORAGE 


FILE 


WORD JMP 
SL 


T8 


NEWSEG SAVE 






* / • • , L / 



7 AUGUST 1969 1 5 4 9 S 4 1 



PAGE 108 



/FLG 1-HOABD OR SHARE, NOT REAL GET 
/FLG 2*-GETTING THE INITIALIZING FILE 
/FLG 3 ‘-GETTING A HOARDED FILE 



/FLG 4-OK 


TO GET EVEN IF 


LOCKED 


COLON GET 


CLF 


7 




AGET, 


JSP 


GTFND 


/set up file name 




LIO 


fildra 






lac 


(JMP) 


/SKIP addr of initial FILE 




JDA 


SGWORD 






JSP 


gwqrd 






SZA 




/nonzerq«*compacter running 




JMP 


GETO 






law 


GETA 






dap 


DLOOKX 






JMP 


DLOOKH 


/find THE FILE 


GETO, 


law 


2 






delay 






JSP 


chkbrk 






JMP 


AGET+1 




GETA, 


CAL 


geteri 


/NO SUCH FILE 




LIO 


POINT+2 






DIO 


TEMA 


/save dra of entry directory 




law 


7777 


/CHECK OWNERSHIP AND WHETHER LOCKED 




AND 


USER 






LIO 


USER 






SPI 








JMP 


GETC+1 


/WHEEL USER. ANYTHING OK 


GETC, 


SAD 


POINT+1 


/IS THIS THE OWNER 




STF 


4 


/YES, OK IF PRIVATE 




SZF 


I 4 






SZF 


I 1 






JMP 


, +2 






CAL 


USRERR 


/HOARD, SHARE, LOCK, UNLOCK ON ANOTHER’S FILE 




LAC 


POINT+1 






SZA 


I 






SZF 


I 1 






JMP 


• +2 


/HOARD, SHARE, LOCK, UNLOCK A PUBLIC FILE 




CAL 


USRBR2 




JSP 


GTFND 


/SETUP ENTRY NAME 


GETRST, 


LIO 


TEMA 


/RETURN TO HERE IF REWRITE TROUBLE IN H*S 




STF 


6 






JSP 


DLOOK 


/LOOK UP ENTRY 




cal 


GETER3 


/NO SUCH ENTRY 




lac 


POINT 






SMA 




/ERASED? 




JMP 


GET J 


/NO, FOUND IT 




LAW 


I 1 


/YES, LOOK FOR ANOTHER 




ADD 


DLOOKX 


/RESET RETURN 




dap 


DLOOKX 






STF 


6 






JMP 


DLOOKH 
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GET J , RAL IS 

SZF I 4 /OK TO GET LOCKED FILES? 

SMA /NO. SKIP IF LOCKED 

jmp getb /get THE FILE 

CAL GETER3 /PRIVATE. SAY IT ISN’T THERE 

GETB, RAL IS 

S P A 

STF 3 /HOARDED 

SZF 1 

JMP HOARDA /NOT REALLY GETTING 

LIO POINT+1 
GETN, LAC (JMP-1) 

JDA SETUP 
400000 SSBASE 

JSP GTWD /COUNT OF OVERHEAD 

DAC TEME /SAVE IT 

IDX SSBASE 
GTD+1 

DAC I SSBASE /UP DATE INFO 

IDX SSBASE 

DIO I SSBASE 

LAW I 3 

ADD SSBASE+5 

LIO I SSBASE+1 

SZF I 2 /DON'T REWRITE INITIAL FILE 

WAIFL+1 /WRITE IT BACK OUT 

NOP /SO SOMEONE ELSE IS READING IT TOO 

LAW I 3 /SKIP OVERHEAD 

ADD TEME 

ADD SSBASE 

DAC SSBASE 

LAW 3 

DAC TEMA /SET CONTINUATION 

LAC FLPTR 

LIO PROD 

SZA I 

SNI I 

JMP GETDB /SKIP TYPING COMMENT IF NOT A DIRECT GET 

S Z F 2 

JMP GETDB /SKIP COMMENT IF INITIALIZATION 

JSP GTEXT /AND TYPE IT 




* ’LOGO, 15' 



24 JULY 1969 2030534 



PAGE 109 



GETD, JSP TLXNE 
JDA PUSH 

VDRA /MAKE SURE NEW NAMES ARE GLOBAL 

VDRA+1 

LAC GVDRA /RESET VDRA TO GLOBALS 

DAC vdfa 

LAC (JMP BLNG-205 
dac vdra+i 

GETDA, CLF 1 

LAW TSyM /NOW LOAD VARIABLES 

DAC FWORDP 

DZM POINT /REMOVE SENTENCE MARK 

DZM FVORDP+4 
GETH, JSP GTWD 

SZA I 

JMP GETFA /NO MORE VARIABLES 

JSP CHKBRK 
LAW I 1 
ADD SSBASE 

DAC SSBASE /BACK TO BEGINING OF THING 

GETE, JSP LCHFLE 

SZA I 

STF 1 

SAD (CHARACTER L#) 

JMP .+3 
JDA TSTORE 
JMP GETS 
JSP TDONE 
LAC POINT+1 

dac tpoint+i 
LAC POINT+2 
DAC TPOINT+2 

JSP GTWDM /IOR (JMP) and ssbase 

JSP FSET 
JSP GTWD 
LI A 

LAC POINT 

SZF I 1 /SENTENCE? 

SPI 

IOR (400000) /YES 
DAC TPQINT 
CLF 1 



SL 
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GETF, 



GETG, 



GETG A i 



GETF A , 



GETFB i 



GETK , 



JSP LCMFLE 
JDA FSTORE 
SAS (CHARACTER 
JMP GETF 
JSP GTWDM 
LOAD POINT+1 
UNLOAD TEMD 
JSP DLOOKI 
STF 1 
LOAD TEMD 
UNLOAD POINT+1 
LOAD SDR A 
JDA SGWORD 
LAW 3 

ADD WRDCNT 
IOR TPQINT _____ 
JDA GTNGWD 
DZM TEMA 
LAW S YU- 1 
DAP SGETP 
JSP sget 
JDA GTNGWD 
IDX TEMA 
SAS WRDCNT 
JMP GETG A 
LAC TPOINT+1 
JDA GTNGWD 

lac tpoint+2 

JDA GTNGWD 

CLA 

SZF 1 

JDA GTNGWD 
JSP UFWORD 
JSP UGWORD 
JMP GETDA 
JDA PULL 
VDRA+1 
VDRA 

JSP fset 
JSP GTWD 
SZA I 
JMP GETM 
JSP CHKBRK 
JSP LCHFLE- 
JDA FSTORE 
SAS (CHARACTER 
JMP GETK 
JSP GTWDM 
JSP UFWORD 
LIO ADR A 
JSP DLOOK 
JMP GETKA 



/STORE THE NAME 
R #) 

/GUARD FROM DESTRUCTION BY DLOOK 
/WILL SAY DON’T PUT A 0 AFTER IT 



5 25 3 
! OR (^oooo) 



Ln-a > Mr ( 



ix 



/MARKS THE end OF THE TABLE 



/SET VDRA BACK UP NOW 



/NOW GET THE ABBREVIATIONS 



R#) 



&L 
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GETKB, LOAD AVALUE 

JD A SFWQRD 
DZM CHCNT 
DZM WRDCNT 
GETKD , JSP LCHFLE 

JD A FSTORE 
SAS (CHARACTER R#) 

JMP GETKD 
JSP GTWDM 
JSP UGWORD 
LOAD SDRA 
JD A SGWORD 
JSP GWORD 

AND ( -1000001 /REMOVE HOARD BIT IF THERE 
SZF 3 

IOR (100000) /AND SET IT IF NECESSARY 

DAC I GWORDP 

JSP USEDG 

LAC I GWORDP 

SU3 (3) 

JD A NTHWD 
LAC AVALUE+1 
SAS (JMP BLNG-4) 

JMP GETL 
LIO AVALUE 
JSP GETIT 
LAC I BBPTPl 
DAC AVALUE 
CLA 

GETL, IDC 

DAC AVALUE+1 

LAC AVALUE 

JD A GWORDS 

LAC AVALUE+1 

JD A GWORDS 

JSP UGWORD 

STORE FWORDP, AVALUE 

JSP UFWORD 

JMP getfb /next abbr 
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GETKA# 



GETKC n 



GETM, 



SL 



law 


SYM-1 


OAP 


SGETP 


LOAD 


SDRA 


JDA 


SGWORD 


LAW 


3 


ADD 


WRDCNT 


JDA 


GWORDS 


DZM 


TEMA 


JSP 


sget 


JDA 


gwobds 


IDX 


TEMA 


SAS 


WRDCNT 


JMP 


GETKC 


CLA 

JDA 


GWORDS 


JSP 


GWORDS+1 


JSP 


GWORDS+1 


JSP 


UGWORD 


JMP 


GETKB 


lac 


FLPTR 


SZA 


I 


JMP 


GETMD 


LAC 


I FLPTR 


dac 


TEMA 


LAW 


I BTBL 


ADD 


FLPTR 


**UL 


(BLNG) 


SCL 


9 S 


SCL 


8 S 


ADD 


(BASE) 


CM A 
ADD 


FLPTR+1 


dac 


temb 


law 


bchk-btbl 


ADD 


FLPTR 


JDA 


runfrz 



/NOT IN A FILE NOW 
/GET DBA OF PRESENT FILE 

/CALC HEL TEXT PTR FROM PHYSICAL 



/NOW HAVE BEG OF BUFFER 
/REL TXT PTR 
/RELEASE CORE buffer 




* ' LOGO, 15 ’ 



24 JULY 1969 2030:34 



PAGE 113 



GETME , 



GETMD * 



JSP UTWORD /RELEESE COMMAND 

STORE TEXTP » temd /save command PTR 

JDA PUSH /AND PUSH EVERYTHING 



HOAR DR 

PROD 

PROD+1 

XDRA 

RNUM 

temd 

temd+i 

CDRA 

CDRA+1 

TEMA 

TEMB 

LOAD dcdra 
UNLOAD CDRA 
LAC (100000) 
I OR HOARDS 
SZP 3 

dac HQARDB 
lac ssbase 
Dac FLPTB+1 
LAN 7777 
AND SSBASE+1 
DAC FLPTR 
SJMP SINPUT 



/COMMEND 

/DIRECT COMMAND 

/DRA OF FILE IF ANY 

/OLD REL PTR TO FILE IF ANY 

/RESET CDRA 



/HOARDED file? 
/YES, SET BIT 



/AND READ FILE 



DZM TEMA /NOT FROM FILE NOW 

BZM TEMB /SO WILL PUSH ZEROS 

LAC ST8L+GETSEG-1 /RESET STBL 

DAC STBL+INSEG-1 
JMP GETME 



SL 
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GETDB, 



GTWD, 



GTWDX # 
GTWDA, 



GTWDB, 

lchfle, 

LCHFLX, 
GTWDM , 

GTWDMX, 

SL 



JSP LCHFLE /SKIP TYPING COMMENT SINCE COMMANDS FROM PILE 

SAS (CHARACTER L#) 

jmp getdb /skip through it 

JSP GTWDM 
JMP GETD+1 

DAP GTWDX /GET A WORD FROM FILE, LIKE GWORD 

DIO DRUM! 

LAC SSBASE 
SAD SSBASE+3 
JSP GTWDA 
IDX SSBASE 
LAC I SSBASE 
LIO DRUM 
JMP , 

DAP GTWDB 

LIO I SSBASE+2 

LAW I 3 

ADD SSBASE+5 

RAIFL 

DIO I SSBASS+l 
LAC (JMP-1) 

ADD SSBASE+5 
DAC SSBASE 
JMP . 

DAP LCHFLX 
LAC SSBASE 
SAD SSBASE+3 
JSP GTWDA 
LCH I SSBASE 
JMP . 

DAP gtwdmx 
LAC (JMP) 

IQR SSBASE 
DAC SSBASE 
JMP . 
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GTNGWD , 0 /COPIED NGWORD 

DAP GTHOX 
LAC GWORDP 
SAS GWORDP+3 
JMP GTNGA 
JSP UGWORD 
LIO I GWORDP+2 
SHI I 
JMP GTHGB 
LIO I GWORDP+1 
JSP NEWITM 
LAC I GWORDP+1 
DAC I BBPTH2 
GTNGB * LAC (JMP 0 ) 

JDA SGWQRD 
GTNGA, JSP USEDG 

IDX GWORDP 
LAC GTNGWD 
DAC I GWORDP 
GTNGX , JMP , 

GTFND, DAP GTPNDX /SETUP FILE OR ENTRY NAME FOR LOOKUP 

JSP GNS 
SAS (400000) 

CAL S AVER 1 
JSP TWORD 
DAC TEMB 
JSP TWORD 

LIO TEMB /THIS SETS UP NAME LIKE VGET 

JDA SGWGRD 

LAW GWORDA 

DAP TGBTF 

JSP FSET 

JSP GWORD /SKIP WRDCNT 

JSP TGET 

JDA FSTORE 

SAS (CHARACTER R#) 

JMP , -3 
JSP UFWORD 
JSP UGWORD 
GTFNDX , JMP , 

« L 
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GTEXT, DAP GTEXTX /TYPE OUT COMMENT 

DZM TEMC 

law gbuff 
dac FSA 
LAC CH ABN 0 

SZF 3 /HOARDED? 

JMP GTEXTX /YES 

GTEXTK, LAC POINT 
RAL IS 
SPA 

JMP GTEXTL /LOCKED 

GTEXT J , DAC TEMB 

SZF 1 /comment or CONTENTS? 

JMP GTEXTA /CONTENTS 

LAC (CHARACTER L() /COMMENT 

DCH I FSA 
JMP GTEXTE-1 

GTEXTA, LAC FSA 

SAS (LAC GBUFF+26,5 
SAD (JMP GBUFF+25.1 
JMP GTEXTF 
JSP LCHFLE 
SAD (CHARACTER L#) 

JMP GTEXTB 
SZA I 

JMP GTEXTC 
SAD (770000) 

JMP GTEXTD 
DCH I FSA 
IDX CH ARNO 
GTEXTE, SAS (72.) 

JMP GTEXTA 
JSP GLINEM 
LAC TEMB 
SAS TEMA 
JMP C3TEXTM 
GTEXTF, CLC 

DAC TEMC 

GTEXTC, LAC (CHARACTER L#) 

DCH I FSA 
GTEXTH, LAW GBUFF 
DAC FSA 
TOS 
CLA 

LIO TEMC 
SPI 

JMP GTEXTA 
TYO 

IDX CHABNO 
DAC TEMB 
JMP GTEXTE 

SL 
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GTEXTB, 



GTEXTX, 

GTEXTI, 



GTEXTL, 



GTXTA » 
GTXTK » 
GTEXTD, 



LAC (CHARACTER L)) 

SZF I 1 /COMMENT OE CONTENTS 

DCH I FSA 

LAC (CHABACTER L#) 

DCH I FSA 
LAW GBUFF 
TOS 
SZF 1 

JMP GTEXTX 
JSP GTWDM 
JMP . 

LAC CHABNO 
SUB (63.) 

SMA 

JSP GLINEM 
LAW GTXTK 
TOS 

LAW 1 1 
ADD CHABNO 
DAC CHABNO 
JMP GTEXTK 

LAW I 50. 

ADD CHABNO 
SMA 

JSP GLINEM 
LAW GTXTA 
TOS 

LAW 10 
ADD CHABNO 
DAC CHABNO 
JMP GTEXTJ 

TEXT /(LOCKED)#/ 

TEXT /(HOARDED)#/ 

DCH I FSA 
JSP LCHFLE 
SAD (020000) 

JMP GTEXTG 
DCH I FSA 
SAS (46) 

SAD (47) 

JMP GTEXTE-1 
JMP GTEXTA 



/DON'T GO BACK IF IN CONTENTS 
/HOABDED 

/ROOM FOB ” (HOARDED) "? 

/NO 
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GLINEM, 


dap 


GLINMX 




jsp 


sline 




DZM 


TEMC 


GLINMA, 


CLA 






tyo 






IDX 


chaeno 




IDX 


TEMC 




SAS 


TEMA 




JMP 


glinma 


GLINMX, 


JMP 


• 


GTEXTG, 


LAC 


(CHARACTER L#) 




DCH 


FSA 




JMP 


GTEXTH 


GTEXTM, 


law 


72, 




SUB 


TEMB 




ADD 


CHARNO 




dac 


CHARNO 




lac 


TEMA 




dac 


TEMB 




JMP 


GTBXTA 


GBUFF # 


REPEAT 27, ,0 
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COLON GTFINI JSP UTWORD /RELEASE COMMAND AND LEAVE TILE 

LAW BCHK^BTBL 
ADD FLPTR 

JDA RUNFRZ /RELEASE BUFFER 

JSP ACPULL /REMOVE 2 RETURNS 

TEMB /THROW AWAY THIS ONE TOO 

TEMB 

TEMA /DRA IF ANY 

CDRA+1 
CDRA 
TEMD+1 
TEMD 
RNUM 
XDRA 
PROD+1 
PROD 
HOARDS 
LOAD TEMD 

JDA STWORD /GET BACK COMMAND 

LIO TEMA 

SNI /FROM A FILE? 

JMP GTFINC /NO. 

JSP FITM /YES, GET IT BACK IN 

JMP GTFINA /NOT IN CORE, GO GET IT 

JSP gitm 

GTFINB, LAC (400000) 

DIP I bcount /freeze IT 

LAC BDRA 
DAP FLPTR 
LAC BBPTR 
ADD TEMB 
DAC FLPTR+1 
JMP COMRTN 



GTFIND, 
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GTFINA, 



GTFINC, 






CLI 

JSP FITM 
JSP PBUF 
JSP GITM 
lac bbptr 
LIO TEMA 
BAIFL 

DIO I BDRA 
JMP GTFINB 

lac permin /put back tt input 

DAC STBL+INSEG-1 
D0M FLPTR 
DZI1 FLPTR+1 
JMP GTFIND 




* ' LOGO * 1 5 1 



24 JUL* 1969 2030:34 
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COLON REINIT 



SNI 


JMP 


POP 


CLF 


7 


STF 


2 


STF 


3 


JMP 


GETN 


COLON UNLOCK 




LAC 


( 600000) 


JMP 


HQARDE 


COLON LOCK 


lac 


(200000) 


JMP 


HQARDE 


COLON SHARE 


lac 


(500000) 


JMP 


• +2 


COLON HOARD 


lac 


( 100000) 


HOARDS, DAC 


HOARDD 


CLF 


7 


STF 


1 


JMP 


A GET 


HOARDA, LOAD SDRA 


JDA 


SGWORD 


JSP 


GWORD 


LIO 


HOARDD 


CMI 

nai 

/%%%%) 

CMI 


SPI 


I 


IAI 


dac 


I GWORDP 


LIO 


I BDRA 


LAC 


BBPTR 


waifl+i 


JMP 


HOARDC 


DZM 


I BDRA 


DZM 


i bcount 


JMP 


COMRTN 


hoardc, law 


2000 


SAS 


ERCODE 


cal 


iqperr 


DZM 


I BDRA 


DZM 


I BCOUNT 


JMP 


GSTRST 


hqardd, 0 

WORD JMP T 8 
&L 



LIO INITFL /INITIALIZING FILE 

/NO INIT FILE 

/SO NO comment typed 

/SO ACTS HOARDED 



/SIGN BIT MEANS REMOVE OTHER BIT 



/REMOVE THE BIT (AND SIGN BIT BUT THAT * S NOT THE 



/REWRITE DIRECTORY 
/TRY AGAIN 



/REAL ERROR 



NEWSEG GET FILE IN 




